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ABSTRACT 


An analysis of two commercially available Speech 
Understanding Systems (SUS) was conducted. Each system was 
tested against various background noise conditions. Results 
obtained were compared with current criteria for SUS applica- 
tion in aircraft. Additionally, since the P-3 Orion aircraft 
is being considered as a SUS test aircraft, a survey of Fleet 
P-3. pilots was conducted. Their opinion was sought on what 
a SUS equipped microprocessor should be capable of accomplishing 


as an aid to the flight crew. 
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I. INTRODUCTION 


Recent years have seen a remarkable advance in aircraft 
technology, along with a corresponding increase in aircraft 
complexity and pilot workload. Since a high pilot workload 
has always been assoclated with a high aircraft accident rate, 
it is most desirable to find some means of reducing pilot 
workload as much as possible. 

One possible answer lies in the area of Speech Understand- 
ing microprocessor systems. These would allow the pilot of an 
aircraft so equipped to verbally command a microprocessor 
system which in turn would cause the aircraft to follow the 
HiloU's instructions,:such as a climb or descent to a specified 
altitude. The pilot might also request information from the 
computer, such as a Maximum range profile or to display the 
appropriate emergency checklist as required. Voice communica- 
tion with the computer would free the pilot of the necessity 
of keying in instructions as current technology requires. 

Speech Understanding Systems (SUS) have experienced rapid 
advancement in recent years also, with both government and 
private industry sponsored programs being undertaken. 
Reference 1 focuses on the operational military applications 
of Speech Understanding Systems and provides an overview of 
the nontechnical factors in the military environment which are 
likely to affect the introduction of SUS capabilities in 


military systems. 





Microprocessor hobbyists have also developed systems not 
only for speech understanding but speech synthesis as well. 
Two such systems were available at the Naval Postgraduate 
School through the Human Factors Engineering Lab. Heuristics, 
Inc. had developed a system called SPEECHLAB for speech 
understanding, and Computalker Consultants had developed 
COMPUTALKER for speech synthesis. 

Both systems have advantages which make them particularly 
applicable to aircraft cockpit design. They are both small in 
physical size and require less than 6K of RAM for their 
controlling programs. Vocabulary size dictates the actual 
amount of RAM required by each system, with 5K being adequate 
for a 16 word vocabulary in the SPEECHLAB system. The 
COMPUTALKER system, as currently structured, allows the user 
to encode words or phrases, according to phonetic spelling 
mules, in up to 76 characters at a time. Since the average 
word requires less than 15 such characters, phrases of 
approximately four words could easily be constructed. The 
main advantage of the COMPUTALKER system is that many such 
phrases could be stored in available memory, loaded as required 
into the COMPUTALKER input buffer area, and quickly output as 
recognizable speech. This eliminates the requirement for a 
complicated algorithm to assemble prestored words into phrases, 
thus saving valuable memory area. The current COMFUTALKER 
input buffer requires approximately 23K of memory for encoding 
the 76 characters. Both systems are relatively inexpensive, 
with current models available for under $300 in kit form. 


[Ref. 2 and 3] 





This study was undertaken to determine the performance of 
each system as well as the possibility of incorporation in an 
aircraft cockpit control system. Specific goals were: 

1) Determine response time and accuracy of SPEECHLAB under 
low background noise level conditions. 

2) Determine the recognizability of COMPUTALKER under low 
background noise conditions. 

3) Repeating goals 1) and 2) with Wanye levels of back- 
ground noise intensity to determine the limiting tolerance 
of each system to background interference. 

Current studies being carried on by the Navy indicate the 
possible use of the P-3 Orion aircraft as a test bed for voice 
controlled cockpit systems [Ref. 4) With this in mind, a 
survey of Fleet P-3 pilots was conducted to determine their 
reaction of the possible incorporation of such a voice 
controlled system in the P-3. The survey questions used are 
listed in Appendix C. The answers to the questions are 


discussed in the Results and Conclusions section of this report. 





IIT. DESCRIPTION OF APPARATUS 


A, SPEECHLAB 

The SPEECHLAB hardware, manufactured by Hueristics, Inc., 
Los Altos, California, is compatible with the 8080 micro- 
processor developed by Intel and employs the S100 bus \Fig. 1\. 

Audio input is amplified and passed through three band 
pass filters encompassing the range from 150 to 900 Hz, 900 Hz 
to 2.2 KHz, and 2.2 to 5 KHz. These ranges roughly correspond 
to the first three resonances of the human vocal tract. A 
zero-crossing detector generates a voltage proportional to the 
number of times the raw waveform crosses the rest level in a 
given period of time. The signal is then passed to a six-bit 
A/D converter. The output of this A/D converter is fed 
directly onto the computer data bus, 

The controlling software programs utilized in this experi- 
ment were taken from the manual supplied with the SPEECHLAB 
board and modified for use on the Human Factor Engineering 
Labs' 8080 microprocessor. Investigations conducted prior to 
commencement of the experiment showed the algorithm which used 
Kuclidian distance measure to be the most accurate of the 
programs in the manual. Of the most importance in this parti- 
cular program was the variable S, which represented the number 
=i divisions into which the speech utterance would be divided 
in order to be analyzed by the program. This parameter, set at 


64 as provided, was shown to have the greatest effect on 
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response time. Response time was measured from the closing 
of the speech window to the time the machine began to type 
the recognition message on the teletype. The speech window 
width as set by the algorithm was approximately 2.5 sec in 
duration. This is a variable and could be changed by the 
operator. The beginning of the BOCeCh Window was signaled by 
a beep at the microphone in use. A similar beep signaled the 
close of the window fRef. 5] - The Basic and controlling 


programs used by speech lab are included as Appendix A. 


B. COMPUTALKER 

The COMPUTALKER hardware was developed by Computalker 
Consultants, of Santa Monica, California [Fig 2). 

The COMPUTALKER board is controlled by CSR1, a software 
program provided with the system. CSR1 is a phoneme-input 
speech synthesizer program. It contains definitions in the 
form of various table entries for 55 different input symbols 
which represent the phonemes of the English language along with 
several punctuation marks. CSR1 accepts a phonetic input string 
consisting of these phonemes and punctuation symbols and decimal 
digits which specify vowel stress levels. This input string is 
parsed to fill out a phonetic feature matrix for the desired 
synthetic phrase. A set of phonetic structure rules scans the 
matrix to look for feature patterns and combinations which 
must be adjusted to conform to English pronunciation. After 
these adjustments, a parameter generator algorithm scans the 


matrix and produces the control parameters needed to operate 
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COMPUTALKER Hardware Board 


Figure e. 





the COMPUTALKER Synthesizer [Ref 6]. The COMPUTALKER board 
is shown in Figure 2. The CSR1 program is included as 


Appendix B. 


C. SOUND LEVEL METER 

The sound level meter used during the experiment was the 
General Radio Corporation, Type 1565-B. The range of the 
instrument was from 4O 4B to 140 dB, referenced to 20 micro 
Newtons per square meter. Unless otherwise noted, all sound 
pressure level measurements in this experiment were made with 
this sound level meter. The meter also provided for the use 
of three different weighting levels, A, B, or ©, which conform: 
to ANSI S1.4-1971 Type 2 and IEC 123,1961 specifications. 
Weighting C was chosen for use in this experiment as it 
provided the flatter response curve over a wider range of 


frequencies than either of the other weightings (Fig. 8). 


D. MAICO AUDIOMETER 

The MAICO Dual Channel Research and Diagnostic Audiometer, 
Model MA-24B, was used to provide the background noise and pure 
tones used during the course of this investigation. The Hearing 
Threshold Level in each channel could be controlled accurately 
through the range from 3 dB to 112 dB. This equated to a 
range of from 47 dB to 162 dB when referenced to 20 micro 


Newtons per square meter [Fig. 4]. 


E. MICROPROCESSOR 
The microprocessor used for the experiments was built from 


a kit manufactured by IMSAI Corporation. The basic kit utilizes 


14 























1h Bi. 





Sound Level Meter 


Figure 3 


LS 








ea hinge 
i Sie this 
Se ; Cs 
ee yy ery 
fy 
GL ey 


zo 
oF 
¥ 


i 


iis 
i: 


“e 


PENSE: 


py a 
aca 
Ah 
= 
=o 
a 
4. 
?: 





Audiometer 


Figure 4. 





the INTEL 8080 microprocessor chip and standard INTEL 8080 
instructions. An IMSAI Multiple Input/Output board was used 
for input/output. Memory available included 4K of PROM and 
32K of RAM. Sufficient space was available for up to 32K 
additional memory, assuming the same type of memory packaging. 
Figure 5 shows the 8080 microprocessor with the SPEECHLAB, 
COMPUTALKER, memory and I/0 boards installed. 

Figure 6 shows the Audiometer and Microprocessor set up 
outside the test booth. The microprocessor was controlled with 
a standard teletype keyboard. Figure 7 shows the interior of 
the test booth, All inputs to the booth were channeled through 
the patch box on the right of the table. The microphone stand 
had full freedom of motion which allowed the subjects to 
position the microphone within one inch of their lips while 
speaking. The speakers used to introduce noise, tones and the 


COMPUTALKER speech are located in the rear of the booth. 
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Audiometer and Microprocessor Outside Test Booth 


Figure 6. 
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Microphone Setup Inside Test Booth 


Figure 7. 








III. EXPERIMENTAL PROCEDURE 


All experiments were conducted at the Human Factors 


Engineering Laboratory at the Naval Postgraduate School. 


A. SPEECHLAB TESTING 

For the voice recognition tests, each subject trained the 
SPEECHLAB unit on the ten word vocabulary selected from Ref. l. 
No background noise was introduced into the booth in which the 
subjects operated from. Noise level in the booth under these 
conditions was measured at 40 dB using the sound level meter. 
After training, the performance mode of the system was entered. 
Background noise level remained at 40 dB for the tests. The 
subject was required to read through the word list, in order, 
five times, thus obtaining fifty samples of speech utterances 
from each subject per test. Each test was repeated three times, 
with the S parameter of the SPEECHLAB algorithm set at 64, 32, 
and 16. This was done to test the performance of the algorithm 
with varying sample sizes. Typical results are shown in 
Figure 8, 

Next, various background noise levels were introduced in 
the booth to determine system response to noise. The subjects 
followed the same procedures as in the no-noise tests. The S 
parameter remained set at 64 throughout the tests as this was 
determined to be the most accurate mode for SPEECHLAB. Back- 


ground noise level was raised in 5 dB increments from 60 dB to 
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DATE 17 Au 8 BACKGROUND NOISE 40 dB 


SUBJECT Buresh FREQUENCY ee 
SPEECHLAB X S 64 TIME (AVERAGE) 27 sec 
COMPUTALKER 


PROGRAM 1 





WORD LIST Bota = = 0,86 
1) ALTITUDE 6) VOR 

2) SPEED 7) Is 

3) HEADING 8) CLIDESLOPE 

4) POSITION 9) CLIMB 

5) TACAN 0) DESCEND 


Figure 8, Typical Results of SPEECHLAB Tests 
(with low background noise) 
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80 dB. However, in no test was the SPEECHLAB system able to 
accomodate more than 74 dB. Typical results for this series 
of tests are shown in Figure 9. 

To test the effect of frequency on the SPEECHLAB system, 
pure tones ranging from 4000 Hz to 8000 Hz were induced and 
the tests repeated by the subjects. Incremental tone steps 
were 1000 Hz. Typical test results are snown in Fig. 10. A 
summary of results from the SPEECHLAB tests is presented in 
ie. Ll. 


B. COMPUTALKER TESTING 
To test the accuracy with which COMPUTALKER produced speech, 

the same word list used for the SPEECHLAB tests was prepared 
for use with COMPUTALKER. Each word on the list was rearranged 
according to the phonetic spelling rules used by COMPUTALKER. 
Various combinations of phonetic spellings were tried until an 
acceptable utterance was produced. This list of words, which 
were now optimized to the principal researcher, was then 
presented to each of the subjects. Re-optimization, where 
necessary, was done until each subject readily recognized each 
word on the list. The word list and final phonetic spelling 
was as follows: 

(1) ALTITUDE -- AH2LTTIYTUX3D 

(2) SPEED -- SHPQIY3DX 

(3) HEADING -- HHEHDIYNGX 

(4) POSITION -- POHSIHISSIYOHN 

(5) TACAN -- TAE3QKAAN 
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Figure 9, Typical Results of SPEECHLAB Tests 
(with various noise levels) 


24 





DATE 22 Aug 78 BACKGROUND NOISE 75 dB 


SUBJECT Buresh FREQUENCY 4000 Hz 
SPEECHLAB X S 64 TIME (AVERAGE) 28 sec 
COMPUTALKER __ 
PROGRAM 1 
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5.) TACAN 0) DESCEND 


Figure 10. Typical Results of SPEECHLAB Tests 
with various tone levels) 
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(1) With no noise input to the test booth, the 
noise level inside the booth was measured to 
be 4O dB. 





(2) Background noise was broadband white noise. 


(3) Pure tones were input at 75 dB. 


Figure 11. Summary of Results from SPEECHLAB Testing 
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VOR -- VVIY1, OHIUW, REHIR 
ILS -- AY1, ELL, SS 


(6) 
ce) 
(8) GLIDESLOPE -- GXLAY3DSLUHP 
(9) CLIMB -- KLAY1MB 

(0) 


DESCEND -- DIYSEHND 


The phonetic spelling rules used by COMPUTALKER are shown in 


mais. ie. 


ey 








Consonants Vowels Punctuation 

P P pie LY { heed Space word boundary 

| re tie 1H L hid : pause/si lence 

K K key EY @ét hayed : falling pitch 

B b =o by Ein < head ? rising pitch 

D d die AE & had return end of input 

G g guy AA a hod 

M Mm my AO ) hawed 

N nN nigh OW OY hosed Stress Marks 

NX Y hang UH @ hood ' 

F f fie. UW UM who'd % no stress 

V vi vie ER @& herd } primary (max) stress 

TH S) thigh AH A Hudd 2 secondary stress 

DH 869 thy AY @t hide 3 tertiary stress 

S S sigh AW a’ how h etc. 

Z Zz Z00 OY 2% } boy 5 

SH ff shy AX 2 about > 5 no stress 

ZH 3 vision |X t David 

L g lie OH oO core 

W Ww we JX u too 

me Of rye ’ Several other symbols are used 

Y J you Internally by certain rules. 

HH Ok high These may also be used in the 

CH tf chime Input string. 

JH d¥ jive 

WH wh why KX coo (K before back vow21]) 

EL: 2 battle GX goo (G before back vowe |) 

EM mm botton RX card (R after a vowel) 

EN 7 button LX kill (lL after a vowel) 

Q ? (glottal stop) DX pity (T between vowels) 
YX diphthong ending 
WA diphthong ending 

Table 1 CSR1 Phonetic Input Symbols 


Stress marks may be placed on any vowel in the form of a folloving 
digit from 5 (weakest stated stress) to 1 (maximum stress). Any stress 
digit greater than 5 will be ignored. Ending an input string with a 
period or question mark has the effect of changing the ending pitch, 
falling or rising, respectively. A comma has no effect on the pitch, 
but only introduces a pause in the pronunciation. 


Figure 12. COMPUTALKER Phonetic Spelling Rules 
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IV. RESULTS AND CONCLUSIONS 


A. SPEECHLAB 

Results from the SPEECHLAB tests showed that while the 
performance approximated what the manufacturers claim, l.e., 
acceptability percentage in the high nineties, any significant 
amount of background noise causes a marked deterioration in 
its performance. Above 74 dB, the algorithm would not accept 
speech utterances at all, rather signaling "SPEECH OUT OF 
WINDOW", indicating that it thought the noise was the speech 
utterance. 

An attempt was made to improve the performance of the 
algorithm by training it with the background noise set at 62 dB. 
While this did improve the recognition rate of the program with 
the background noise level at 60 and 65 dB, performance again 
fell off rapidly at 70 dB and at 74 dB the algorithm again 
could not distinguish the speech from the background noise. 

A noise cancelling boom mike would almost certainly have 
improved the performance of the system, as would the wearing of 
an oxygen mask. However, as noted by previous researchers 
[Ref. ae the background noises induced by heavy breathing 
under moments of stress and high G interfere greatly with a 
speech recognition system's performance. 

The response time for the most accurate algorithm, i.e., 
with S set at 64, was judged to be unacceptable, averaging out 


to 27 sec in all tests. However, with the S parameter set at 


2g 





16, the average response time was 9 sec, a slightly high but 
possibly acceptable time [Ref. 8} . The system accuracy in 
this case dropped to just slightly more than 50%, clearly 
unacceptable. 

Obviously, the algorithm provided with the SPEECHLAB 
hardware requires aeneat deal of improvement. If this is not 
possible, and none of the improvements suggested by the 
SPEECHLAB manual [Ref. 9] produce noticeable improvement, a 
completely new algorithm must be found before the SPEECHLAB 
system could be considered acceptable for military use. 

Further testing should also include vibration levels of 
various intensities to simulate aircraft motion. 

Two observations made during the course of the experiment 
suggest, however, that the low recognition rates obtained may 
not be due entirely to the algorithms used. 

First, it was noted that as a subject became more used to 
"talking' to the machine, a slight improvement in the algorithm's 
recognition rate was seen. It appears that the subject began 
to pronounce the words on the list in a more consistent manner 
after numerous repetitions. This was especially true when the 
subject was told that a successful recognition had been achieved. 
This appeared to reinforce in the subject's mind the particular 
pronunciation which produces the successful recognition. If 
the subjects had been trained in this manner prior to commence- 
ment of the testing, the initially lower recognition rates 
might have been avoided. It would seem therefore that operator 
training would play a significant role in any successful voice 


recognition system. 


30 





The second observation concerned the day-to-day changes 
that occur in the human voice. On one occasion, a subject 
reported for testing with a cold which had changed the tone of 
his voice considerably. Although this particular subject had 
enjoyed one of the highest recognition rates of the group (in 
the middle nineties), on this particular day his recognition 
rate fell to just below 80%. No other subject was tested with 
any other ailment, but it is felt that such things as a sore 
throat, asthma or other allergic reactions which changed the 
tone of the voice would cause a similar drop in the system 
performance. 

The obvious conclusion to be drawn here is that some means 
must be developed, whether through software programming or 
hardware devices, to account for possible daily changes in an 
operator's voice characteristics. 

Several attempts were made to train the SPEECHLAB algorithm 
with one subject and test it with another person speaking. The 
results were so poor that, in general, it appears impractical 
With the present system to attempt to use it in such a manner. 
As presently set up, the best method to use the system with 
more than one person would be to train the algorithm with each 
person's voice. This would, of course, require more storage 


Space and greatly increase recognition time. 


B. COMPUTALKER 
The results from the COMPUTALKER testing were unique in 
that after initial presentation of the word list, all subjects 


scored 100% on all tests. Although the initial recognition 
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rate during the optimization testing was very low (20%), the 
subjects rapidly related the machine speech with the proper 
word. Changing background noises and tone had almost no 
effect on the tests. The only area of difficulty encountered 
was due to the nature of the white noise introduced to the 
testing chamber. The sound produced by the noise is best 
described as a hiss, which is very similar to the letter "S" 
as pronounced by COMPUTALKER.,. This had the effect of masking 
the letter "S" when the machine spoke the word "ILS". All 
subjects, however, were able to hear the "IL" part of the word 
with no trouble and correctly deduced the word to be "ILS". 

At this point in the experiment, the testing procedure was 
modified since the vocabulary under consideration was obviously 
too small, allowing the subjects to easily determine the 
correct choice by process of elimination. Another ten words 
were added to the vocabulary and optimized as before. The 
additional words and their phonetic spelling were as follows: 

(11) ABOVE -- AHBAHOHV 


(12) BELOW -- BIY3LOW2 

(13) CHECK -- CHEHK 

(14) DOWN -- DAOWHN 

(15) ENGINE -- EHNJHIHN 

16) FIRE -- FOAYIR 

(17) GEAR -- GEHER 

(18) NAVIGATION -- NAE1VEHGEY1SOHN 
(19) PRESSURE -- PREHSUHR 

(20) SOME -- SQEMN 


Be 











Various combinations of ten words from the twenty word 
vocabulary were chosen and presented to the subjects. Although 
results were expected to be poor, the opposite was true. Only 
one subject missed one word. However, all expressed the 
Opinion that they had had a much more difficult time in 
determining the correct word. This would infer that they 
thought about their choice much longer than required before. 
This is obviously undesirable, as a pilot can usually ill 
afford to have his attention drawn away from the task of 
flying his aircraft. One solution to this problem would be to 
limit the machine's vocabulary to twenty words or less, but 
this might not be feasible in all situations. 

One method of increasing the vocabulary size that could be 
used with the COMPUTALKER ee would be to improve the 
quality of the sounds produced by the governing phonetic 
spelling rules. It was noted throughout the course of the 
experiments that the sounds produced by COMPUTALKER were not 
guite what was expected from the description in the phonetic 
rules (ae 12]. Most sounds were close enough that the 
Subjects readily adjusted to them with little or no difficulty. 
Some letters of the alphabet were difficult to recognize, as 
was noted previously about the letter "S", the sound in this 
case being more of a hiss than the "es" sound normally 
associated with the letter. Also, COMPUTALKER produced soft 
sounds much more readily than hard ones, most notably at the 
end of a word. For example, the word "CHECK" is pronounced 


more like "cheg" by the system. Although this was a minor 
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problem in this instance, incorporation of the word "CHECK" 
in certain phrases may lead to ambiguous meanings due to its 
mispronunciation. 

Correcting the sounds produced by the phonetic rules used 
by the system would involve changing the computer code which 
controls the COMPUTALKER hardware. These rules are contained 
in Sections 2 through 6 of the CSR1 Source listing. Due to 
time constraints, no such improvements wees attempted, but are 
considered to be necessary to upgrade the quality of the 
COMPUTALKER system. 


C. SURVEY 

The general results of the survey, while not conclusive, 
indicate that most of the pilots would prefer the computer be 
used to calculate such things as Weight and Balance, Proven 
Limit of Endurance profiles (PLE), Maximum Range profiles, etc. 
Many felt it would be advantageous to have the computer warn 
the pilots of impending failures of systems or emergencies, 
such as slowly falling oil pressure, increasing temperatures 
in engine sections, etc. Several pilots favored a verbal 
warning from the computer, in addition to the normal indica- 
tions, in the case of an approach to landing with the gear 
still up. 

Few pilots indicated a willingness to allow the computer 
to actually take physical control of the aircraft under any 
circumstance, although a few would have allowed the computer 
to do so with the pilot's explicit approval. The latter would 


allow the computer to suggest an appropriate course of action 
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and, if it met with the pilot's approval, give permission to 
carry out the procedure. Interestingly, many pilots expressed 
concern that a computer system of this type would be detrimental 
to the morale of the Flight Engineer and cause complacency 
among the pilots themselves. A few pilots were even of the 
opinion that the autopilot, while of great benefit on long 
transit flights, was causing complacency and reduced flying 
skills among some pilots. | 

It would seem from the general reaction of most pilots 
that the initial flight testing and operational experience of 
a SUS be conducted at the TACCO and Navigator stations aboard 


the aircraft, as indicated by Ref. 4. 
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APPENDIX A 


SPEECHLAB COMPUTER PROGRAMS 


The controlling program for SPEECHLAB is written in BASIC, 
The SPEECH Driver requires modifications be made to the BASIC 
system being used. In order to save space, Hueristics, Inc., 
decided to use the Palo Alto TINY BASIC system, developed by 
Dr. Li-Chen Wang. TINY BASIC handles only interger numbers, 
but this is not a major problem in the SPEECHLAB program. 
TINY BASIC, the required modifications for the SPEECHLAB 
Driver, and the SPEECHLAB controlling programs are reproduced 


on the following pages with the permission of Hueristics, Inc, 
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RAAARKAKRKAKRKARARKAARAARARKARARAARAKRAREARRAKRAREKERAKREKRARHTARARKEERERE Ee 


TINY BASIC FOR INTEL 8888 
VERSION 1.8 
BY LI-CHEN WANG 
18 JUNE, 1976 
@COPYLEFT 
ALL WRONGS RESERVED 


AAARAREAKAAAAAARRE ARR EEREEEE ERR ARERRK 
wae ZERO PAGE SUBROUTINES *** 


THE 8888 INSTRUCTION SET LETS YOU HAVE 8&8 ROUTINES IN LOW 


eeete_ewert#eeRnet@ 8 BAER RHR HR HRA HB 





MEMORY THAT MAY BE CALLED BY RST N, N BEING @ THROUGH ?. 
THIS IS A ONE BYTE INSTRUCTION AND HAS THE SAME POWER AS 
THE THREE BYTE INSTRUCTION CALL LLEH. TINY BASIC WILL 
USE RST 9 AS START OR RESTART AND RST 1 THROUGH RST 7 POR 
THE SEVEN MOST PREQUENTLY USED SUBROUTINES. 
TWO OTHER SUBROUTINES (CRLF AND TSTNUM) ARE ALSO IN THIS 
SECTION. THEY CAN BE REACHED ONLY BY 3-BYTE CALLS. 
ORG X'SB88" 
BLIS F3 START DI, eee START/RESTART *** 
8881 3le829 eeae LODI SP,STACK INITIALIZE THE STACK 
8284 CIBASB JMP sTl GO TO THE MAIN SECTION 
9887 4C CHAR 'L' 
Ld 
BBB8 53 XCH HL,(SP) *"** TSTC OR RST 1 *** 
8889 EP IGNBLK IGNORE BLANKS AND 
BBA BE CMP M TEST CHARACTER 
9B88B C368aR JMP TCl REST OF THIS IS AT TCl 
n 
BB8BE 3EBD CRLF LODI A,@CR «v8 CRLF *** 
* 
p18 F5 PUSH AF **™ OUTC OR RST 2 *** 
BB11l 3A9B88 LD A,OCSW PRINT CHARACTER ONLY 
8814 B7 IOR A IF OCSW SWITCH IS ON 
8815 C21A87 JMP 0Cc2 REST OF THIS IS AT OC2 
® 
8918 CDS5B4 CALL EXPR2 “** EXPR OR RST 3 *** 
B831B ES PUSH HL EVALUATE AN EXPRESION 
g81c C311B4 JMP EXPR1 REST OF IT IS AT EXPR1 
BB1F 57 CHAR 'W' 
® 
8828 7C LOD A,H *** COMP OR RST 4 *** 
8821 Ba CMP D COMPARE HL WITH DE 
8822 CB RET NZ RETURN CORRECT C AND 
8823 7D LOD A,L < FLAGS 
8824 BB CMP E BUT OLD A IS LOST 
B825 C9 RET U 
B826 4145 CHAR 'AN' 
Lad 
8928 1A ssl LD A,( DE) #** IGNELK/RST 5 *** 
8829 FE2B CMPI ' ' IGNORE BLANKS 
822B CB RET N2 I TEXT (WHERE DE->) 
gB2C 13 INC DE AND RETURN THE FIRST 
B82D C3238 JMP S51 NON-BLANK CHAR. IN A 
D838 Fl POP AF eee FINISH/RST 6 *** 
Bl 


of 





BH31 
BB34 
8837 
* 


BB38 
3839 
BB3B 
BI3C 
BL3P 
BB4AL 
BHA 3 
BB44 
BH47 
BH48 
BRAY 
BRAC 
BRAD 
BB5H 
B53 
GB56 
B57 
8858 
BESA 
BRE5B 
BRSC 
BRLSD 
SHER 
B81 
BH62 
B86 3 
BBE5 
BBE6 
8867 
x 


8868 
B869 
BEC 
BLED 
BREE 
B87 
O871 
BL72 
BB7 3 
BB74 
BETS 
B876 
* 


9877 
BOTA 
£BTB 
BEIC 
SBTE 
OBIE 
888) 
£282 
BIS4 
BB85 


CD9185 
C3A405 
47 


Ee 
D640 
D8 
C25888 
ole 
CDFBS4 
29 

DAI FSS 
D5 

EB 
CD3Dg5 
E7 ms 
DADSB5 
21881F 
CD6885 
Dl 

cg 
FELB 
cD y 

D8 

13 
218G1F e@@ee 
O7 

85 

6F 

3 ESS 

8C 

67 

C9 


@eeee 


218888 
44 

Er 
PE3S 
De 
PE3A 
Dg 
3EPS 
A4 
C29FRB 


TV1 


TSTC 


TCl 


TC2 


TSTNOUM 


TNL 


CALL PIN 

JMP OQOWHAT 

CHAR 'G‘ 

IGNBLK 

SUBI ‘@' 

Rei C 

JMP NZ,TV1L 

INC DE 

CALL PARN 

ADD HL,HL 

JMP C,QHOW 

PUSH DE 

XCH 4HL,DE 

CALL SIZE 

COMP 

JMP C,ASORRY 

LODI HL, VARBCN 

CALL SUBDE 

POP DE 

RET U 

CMPI 27 

Cue), 

Rey /C 

INC DE 

LODI HL, VARBGN 

ROT L 

ADD L& 

LOD L,A 

LODI A, 

ADC 4H 

LOD H,A 

RET U 

XCH HL,(SP) 

IGNBLK 

CMP M 

INC AL 

JMP 2Z,TC2 

PULH BC 

LOD C,M 

LODI B,g 

ADD HL,BC 

POP BC 

DEC DE 

INC ODE 

INC HL 

XCH HL,(SP) 

RET U 

LODI HL,g 

LOD B,H 

IGNBLK 

CMPT ‘s' 

RET C 

CMPI X'3A' 

RET WC 

LOCI A,X'FS' 

AND H 

JMP NZ,QHOW 
B2 
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CHECK END OF COMMAND 
PRINT “WHAT?” IF WRONG 


awn 


wae Tet CR Rol 7 
TEST VARIABLES 
C:NOT A VARIABLE 
NOT "@” ARRAY 

IT IS THE “@" ARRAY 

@ SHOULD BE FOLLCWED 
BY (EXPR) AS ITS INDEX 
IS INDEX TOO BIG? 

WILL IT OVERWRITE 
TEXT? 

FIND SIZE OF FREE 

AND CHECK THAT 

IF SO, SAY “SORRY” 

If NOT, GET ADDRESS 

OF @CEXPR) AND PUT IT 
IN HL 

C FLAG IS CLEARED 

NOT “¢, IS iT -A-f0 2? 
IF NOT RETURN C FLAG 


IF A THROUGH Z 
COMPUTE ADDRESS OF 
THAT VARIABLE 

AND RETURN IT IN HL 
WITH C PFLAG CLEARED 


oS ee hor CeOReRS al ee 
THIS IS AT LOC. 8 

AND THIN JMP HERE 
COMPARE THE BYTE THAT 
FOLLOWS THE RST INST. 
WITH THE TEAT (PE->) 
IF NOT =, ADD THE 2ND 
BYTE THAT POLLOWS THE 
RSE TO "THE CLD PC 
IT.E., DO A RELATIVE 
JUMP IF NOT = 

ZTE =, SKIP THOSE BYTES 
AND CONTINUE 


aw* TSTNUM az“ 
TEs]. Tf -2HE TEAT I5 


A NUMBER 
IF NOT, RETURN J IN 
B AND HL 
IF NUMBERS, CONVERT 


TO BINARY IN HL AND 
Dot 6 TO “# OF DIGITS 
Le O27 oy Lanes 5: NO 
ROOM FOR NEAT DIGIT 








BBS8 BA INC B B COUNTS # OF DIGITS 


BA89 C5 PUSH BC 

BABA 444D LOD BC,HL HL*13*HRL+t( NEW DIGIT) 
SH8C 29 ADD HL,HL WHERE 16" IS DONE BY 
BRED 23 ADD HL,HL SHIFT AND ADD 

BOSE BI ADD HL,BC 

BBSP 29 ADD HL,HL 

B298 1A LD A,( DE) AND (DIGIT) IS FROM 
BB9S1 13 INC ODE STRIPPING THE ASCII 
8892 EO6LF ANDI X'S9F' CODE 

BBI4 BS ADD L 

BH95 6F LOD UL,A 

BB96 3ELBD LODI A, 

BAIS BSC ADC H 

BOIS 67 LOD 4H,A 

SHIA Cl POP BC 

OO9B 1A LD A,( DE) DO THIS DIGIT AFTER 
BUIC F2ICHL JMP NS,TN1 DIGIT. S SAYS OVERFLOW 
BOSP DS QHOW PUSE DE RES ERROR? “HOW?r” *** 
BRAS 11IA6H AHOW LODI DE,HOW 

BOA3 C3A8H5 JMP ERROR 

BRAG A84F573F HOW CHAR 'HOW?',@CR 

BRAA BD 

OBAB 4F4B OK CHAR 'OK',@CR 

BRAD BD 

BRAE 574841543F WHAT CHAR 'WHAT?',@CR 

$8B3 BD 

OGR4 5347525259 SORRY CHAR 'SORRY',@CR 

BUBI BD 

x 


RARANARARAAKRAAKKKRKERARAKRAARAKAAAAEK RE RHF REA KARAEKRKRAAAARAEAAHAKRHKAHHEKAS 


* 


re 


xER MAIN RA 


THIS IS THE MAIN LOOP THAT COLLECTS THE TINY BASIC PROGRAM 
AND STORES IT IN THE MEMORY. 


AT START, IT PRINTS OUT "“(CR)OK{(CR)", AND INITIALIZES THE 
STACK AND SOME OTHER INTERNAL VARIABLES. THEN IT PROMPTS 
">" AND READS A LINE. IF THE LINE STARTS WITH A NON-ZERO. . 
NUMBER, THIS NUMBER IS THE LINE NUMBER. THE LINE NUMBER 
(IN 16 BIT BINARY} AND THE REST OF THE LINE (INCLUDING CR) 
IS STORED IN THE MEMORY. IF A LINE WITH THE SAME LINE 
NUMBER IS ALREDY THERE, IT IS REPLACED BY THE NEW ONE. IF 
THE REST OF TSE LINE. CONSISTS OF A CR ONLY, £1 £5 NOT STORED 
AND ANY EXISTING LINE WITH THE SAME LINE NUMBER IS DELETED. 


AFTER A LINE IS INSERTED, REPLACED, OR DELETED, THE PROGRAM 
LOOPS BACK AND ASK rOR ANOTHER LINE. THIS LOOP WILL 8E 
TERMINATED WHEN IT READS A LINE WITH ZERO OR NO LINE 
NUMBER; AND CONTROL IS TRANSFERRED TO "DIRECT". 


TINY BASIC PROGRAM SAVE AREA STARTS AT THE MEMORY LOCATION 
LABELED “TXTBGN" AND ENDED AT “TXTEND". WE ALWAYS FILL THIS 
AREA STARTING AT "“TXTBGN", THE UNFILLED PORTION IS POINTED 
BY THE CONTENT OF A MEMORY LOCATION LABELED "“TXTUNF”. 


THE MEMORY LOCATION “CURRNT" POINTS TO THE LINE NUMBER 
THAT IS CURRENTLY BEING INTERSRETED. WHILE WE ARE IN 
THIS LOOP OR WHILE WE ARE INTERPRETING A DIRECT COMMAND 


G3 


39 





* (SBE NEXT SECTION), 
Ww 


® 


SBBA 
¥BBD 
BECH 
BCL 
BHC4 
BEC? 
SBCA 
BBCD 
BEDS 
BHD3 
OBD5 
BEDE 
BZD 
SEDC 
OBOE 
BRES 
BHE1 
BHE2 
BOE3 
ORES 
BRET 
BHEB 
SREY 
BREA 
SREB 
BEC 
OREE 
ORE 
BEES 
OBE 
OBE4 
BSFS 
BHEB 


_ AGES 
* 


BAEC 
BHED 
B1lGS 
B183 
Bib> 
G188 
B1HB3 
B1GBC 
18D 
B1GE 
Bliss 
Bil; 
B114 
B115 
B11? 
$118 
$119 
B11c 
G11D 
B128 
8123 
B1l24 


CDSZERS 
L1ABLS 
97 
CD3CK6 
21CBaS 
228188 
219288 
228788 
228288 
3E3E 
CDD6#5 
D5 
P37 iy 
CD7789 
EF 

7C 

BS 

ei 
CAF5£1 
1B 

7C 

12 

1B 

7D 

12 
c5D5 
79 

93 

ES 
CD1486 
D5 
C2888 
DS 
CD3986 


cl 
2A1388 
CDEDS6 
6969 
Zano00 
cl 
2A1388 
Pl 

ES 
oe 
CALIHSE 
85 

GF 

3 EAB 
8C 

67 
L1ISS1F 
E7 
DZCr as 
221383 
D1 

CDC 686 


eeae 


e2ee@ 


"“CURRNT” 

START LODI SP,STACK 
ST1l CALL CRLF 

LODI DE,OK 

SUB A 

CALL PRTSTG 

BOD Hi,or2 tt 

a0 HL ,CURRNT 
ST2 LODI HL,Jg 

of HL,LOPVAR 

ST HL ,STKGOS 
STs LODI A,‘ >?' 

CALL GETLN 

PUSH DE 

LODI DE,BUFFER 

CALL TSTNUM 

IGNBLK 

LOD A,H 

TOR LL 

POP BC 

JMP 2Z,DIRECT 

DEC DE 

LOD A,H 

st A,(DE) 

DEC DE 

LOD A,L 

oT A,( DE) 

PUSH BC,DE 

LOD A,C 

SUB £ 

PUSH AP 

CALL FNDLN 

PUSH DE 

JMP wW2,ST4 

PUSH DE 

CALL FNDNXT 

POP BC 

LD HL, TATUNP 

CALL MVUP 

LOD HL,EC 

ST BUS TALTUNE 
ST4 POP BC 

LD Hu, TXATUNE 

POP AF 

PUSH HL 

CMPI 3 

JMP 2,START 

ADD L 

LOD UL,A 

LODI A,3% 

ADC H 

LOD H,A 

LODI De, TXTEND 

COMP 

JMP NC,QSORRY 

ST HL, TXTUNE 

POP DE 

CALL MVDOWN 

BA 


40 


SHOULD POINT TOA @. 


TALS is Aleave. oF 
AND JUMP TO HERE 
DE->STRING 

A=5 = 


PRINT STRING UNTIL CR 
LITERAL 9 


CURRNT->LINE # * @ 


PROMPT '‘'>' 
READ A LINE 
DE->END OF LINE 
DE->BEGINNING OF LINE 
Teen LIF IT IS A HUMBER 


AND 


HL*VALUE OP THE #¥ OR 
G§ IF NO # WAS FOUND 
BC=75ND OF LINE 


BACKUP DE AND SAVE 
VALUE OF LINE # THERE 


BC ,DE->BEGIN, END 


Aw OF BYTES IN LINE 
FIND THIS LINE IN SAVE 
AREA, DE->OSAVE AREA 
NZ:NOT FOUND, INSERT 
2:FOUND, DELETE IT 
FIND NEXT LINE 
DE->NEXT LINE 

BC->LINE TO BE DELETED 
HL->UNFILLED SAVE AREA 


MOVE UP 10 DELETES 
TXTUN?P->UNFILLED AREA 
UPDATE 


GET RLADY TO INSERT 
BUT EFiRST CRECK IF 

THE LENGTH OF NEW LINE 
IS 3 (LINE 14 AND CR) 
THEN DO NOT INSERT 
MUST CLEAR IHE STACK 
COMPUTE NEW TATUNE 


HL- NEW UNFILLED AREA 
CHECK TO SEE IF THERE 
IS ENOUGH SPACE 
2ORRY, NO ROOM FOR IT 
On, UPDATE TKTUNEF 
JE-SOLD UNFILLED AREA 





Qizi Diet POP DE,HL DE->BEGIN, HL->END 
9129 CDBDS6 CALL MVUP MOVE NEW LINE TO SAVE 
B12C C3IDISZ JMP ST3 AREA 

w 


TR RRBRSRERARERBRBARASLEARARASRERARRALASARAARARALALEA LALA ELAR ERE RRR eee eee ee 


” 


* *** TABLES *** DIRECT *** & EXEC *** 
w 
* THIS SECTION OF THE CODE TESTS A STRING AGAINST A TABLE. 
* WHEN A MATCH IS FOUND, CONTROL IS TRANSFERED TO THE SECTION 
* OF CODE ACCORDING TO THE TABLE. 
* 
* AT 'EXEC', DE SHOULD POINT TO THE STRING AND HL SHOULD POINT 
* TO THE TABLE-1l. AT ‘DIRECT', DE SHOULD POINT TO THE STRING, 
* HL WILL BE SET UP TO POINT TO TABl-1, WHICH IS THE TABLE OF 
* ALL DIRECT AND STATEMENT COMMANDS. . 
* 
* A '.' IN THE STRING WILL TERMINATE THE TEST AND THE PARTIAL 
* MATCH WILL BE CONSIDERED AS A MATCH. E.G., 'P.', 'PR.', 
* 'PRI.', 'PRIN.', OR 'PRINT' WILL ALL MATCH 'PRINT'. 
R 
* THE TABLE CONSISTS OF ANY NUMBER OF ITEMS. EACH ITEM 
* IS A STRING OF CHARACTERS WITH BIT 7 SET TO 2 AND 
* A JUMP ADDRESS STORED HI-LOW WITH BIT 7 OF THE HIGH 
* BYTE SET TO l. 
Rr 
* END OF TABLE IS AN ITEM WITH A JUMP ADDRESS ONLY. IF THE 
* STRING DOES NOT MATCH ANY OF THE OTHER ITEMS, IT WILL 
* MATCH THIS NULL ITEM AS DEFAULT. 
*® 
J12F TABL EQU * DIRECT COMMANDS 
BL2P 40495354 ITEM 'LIST',LIST 
9133 8261 
9135 52554E ITEM 'RUN', RUN 
9138 8233 
@13A 464557 ITEM 'NEW',NEW 
G13D 8226 
G13P TAR2 EQU * DIRECT/STATEMENT 
Q13F 46455854 ITEM 'NEXT',NEXT 
G143 8349 
8145 404554 ITEM 'LET' ,LET 
G148 8427 
BLAR 4946 ITEM 'IF',IP 
BL4C 839A 
GLAE 474F544P ITEM 'GOTO',GOTO 
G152 8252 
B154 474F535542 ITEM 'GOSUB' ,GOSUB 
9159 82Bl 
G15B 52455455524E ITEM 'RETURN' , RETURN 
8161 82D1 
9163 52454D ITEM 'REM', REM 
B166 8396 
G168 464P52 ITEM 'FOR',FOR 
G16B 82EA 
G16D 494E525554 ITEM 'INPUT', INPUT 
9172 83Bl 
G174 SOS2494E54 ITEM 'PRINT',PRINT 
G179 8279 
G17B 53544P58 ITEM 'STOP',STOP 
B17F 822F 
g5 


uy 





#181 
8183 
B18B 
8193 
8198 
B1lAl 
B1lAl 
Gi1A4 
B1lAG 
BLAIS 
B1lAB 
B1lAF 
#iBl 
#1B3 
81BB 
G1C3 
G1CB 
B1D1 
81D 
G1D3 
G1D5 
G1D7 
G1D7 
#1DB 
B1DD 
G1LDEF 
GiDF 
P1EL 
G1E3 
BLE 
H1E6 
G1E7 
G1EI 
B1LEA 
BLEC 
G1EE 
GLEE 
Biri 
GiES 


BLES 
¥ 


gles 
Gls 
B1ES 
OLIFA 
BiB 
B1EC 
BIFE 
8281 
G282 
8283 
82286 
8208 
8259 
O2HA 
G2RBD 
8295 
G2GBE 
B2i2 


8481 


594F55284D415928 
494E534552542925 
4D4F5245208434F4D 


4D414E44532E 


524544 
8586 
414253 
S531 


53495A45 


e5:3D 
84EC 


TAB4 


594F55284D415928 
494E534552542929 
4D4P524520846554E 


4354494F4E53 


544F 
825A 
S5A4 


53544552 


B3H4 
3388 


SESD 
8417 


212E21 


ny 

DS 

lA 

Age 
FEZ 
CAl17T#2 
as 

BE 
CAPA 
3E7F 
1B 

BE 
DALES2 
es 

BE 
D28082 
23 


TABS 


TAB6 


TAE8 


DIRECT 


EXEC 
EX’ 


EX1 


EX2 


ITEM ,DEFLT 
CHAR ‘YOU MAY INSERT MORE COMMANDS.' 


EQU. * FUNCTIONS 


ITEM 'RND',RND 
ITEM ‘'ABS',ABS 
ITEM ‘SIZE*,SI2ZS ~ 


ITEM ,XP4Z 
CHAR ‘YOU MAY INSERT MORE FUNCTIONS' 


EQU. * "rO* LN“ EOR” 


PTEM “TO*, FRI 


ITEM ,OWHAT 
EQU * 
ITEM ‘STEP’ ,FR2 


"STEP" IN “FOR” 


ITEM ,FR3 
EQU * 
ITEM *>*',XP11 


RELATION OPERATORS 


ITEM '#' ,XP12 
ITEM *>° ,APL1S 
ITEM ‘=",XP15 
ITEM ‘Cw! XP14 
ITEM '<',XP16 
ITEM ,AP1?7 


LODUl WL, TABL<=1 *"= DIRECT ==* 


EQU ® mame BXEC RnK 

IGNBLK IGNORE LEADING BLANKS 

PUSH DE SAVE POINTER 

LD A,(DE) IF FOUND ©." IN STRING 

INC DE BEFORE ANY MISMATCE 

CMPI *.'* WE DECLARE A MATCH 

IMP Z,EX3 

INC HL HL=->TABLE 

CMP M IF MATCH, TEST NEAT 

JMP 2,EX1 

LODI A,X'7F' ELSay, SLe ole Bilt 7 

DEC DE GF TABLE 15 SET,. WHICH 

CMP M IS THE JUMP ADDR. (HI? 

JMP C,EXS5 C:YES, MATCHED 

INC HL NC:NO, FIND JUMP ADDR. 

CMP M 

JMP NC,EX2 

LXC HL eM” TO NEAT TAB. ITEM 
36 
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0213 
G214 
G2k7, 
a219 
B21A 
B21 
S215 
Beir 
F225 
C221 
Bze 3 
$224 
B225 


Dy nity ars 
WP wo. td 


EX3 


tw) 
Bad 
in 


POP DE 


JMP EXgS 
LODI A,X' 
INC Hi 
CMP M 

CMP NC,EX4 
LOD A.M 
INC ASG 
Loo i, 
ANDI n° IF 
uOD #H,A 
POP AF 
JMP ({nrL) 


RESTORE SFRING POINTER 
TEST AGALNST NEXT ITEM 
PARTIAL MATCH, FIND 
JUMP ADDOR., WHICH IS 
PUBGGED By e271 = 


LOAD HL WITEK THE JUMP 
ADDRESS FROM THe TABLE 


MASK OFF 62. 7 


CLEAN Ue THE GABAGE 
AND WE GO OC IT 


Kee KR KR KEK K KE EE KAKA KARE EK Kee EK Eee ere hehe KEK K KK 


w 


a a a 2 ee ee 


« 


9226 
G229 
Z22C 
*« 


H22E 
oese 
4 


Y233 
2226 
& 


GO EAXASCUTE NEAT 


"NEWCO CR? ' 
ely © 2 es 


Rae ): 
"CURSIIC'}, 
COMMANDS IN TAZ ARE 


THERE ARE 
'RUMNNXL ' 
"RONTSL’ 
*RUMSME ' 


‘GOTO EXPRI CR)! 
LINE, Ahi 


CDLSL5 
eit l5ee 


22.523 


CUAGDS 


Ci 


COABSS 
PLISh3 


WHAT FOLLOWS 15 THE 


CODE TO SXECUTE DIRECT AND STATEMENT 


CONTROL IS TRANSFPERED TO THESE POLNIS VIA THE 


COMMANDS. 

COMMAND TABLE 

SECTION. AFTER THE 

FOR 'LIST', ‘NEW', AND 

FOR ‘RUN’: 

GO BAC. ~O "STArt 

FOR ‘GOTC' AND 'GOSUB': 

POR ‘RPETURN' AND 

PGR ALL GiHERS: iF ‘CURRENT ' 


eee Non. ** STOP ee RUNS 


SL 


SINDS 132 FIRS? sf'@xneD Liane, 
AND SiART EXECUTE IT. 


£ MORE SHTSITES cho eon: 
PINES NEAT LINE; 


LOOK TP CCDs OF 


"NEAT : 


CCMMAND . 


La LUNE * 


GOES BACK TO 


"STOP: 


GO EXECUTE THE Fina? 


"DIRECT ' 
COMMAND IS SBAECUIED, CONTROL is 
TRANSFERS TO OTHER SECTIONS AS FOLLOWS: 


GO BACK TO 
S0OnED DINE 2 aiNY: 


AND EXEC Is LAST 


‘START ' 
ELSS 


GO EXECUTE THE TARGET LINE. 


as. POINT 79 


‘START ' 


cRIENDS ) 


GO SACK TO SAVED EETURN LINE. 
=> £2, iGO 10 
CTHGs IS “One 2K “PENISH: 2) 


(Oe Ar dt. suo S 


eReK KK KK Kw Kea KKK KCC KECK eK ARERR KKR EK TE KKK KEKE TRA Ke KEK KEK KKK 


wx & GOTO ua ¥K 


‘TXTBGN' 


STORE ITS ADDRESS (IN 


NCTz THAT OGCNLY THOSE 
LEGAL FOR STORED PROGRAM. 


storRGo L135 ADDR. ANE EASCUTES IT. 


S2ORES THE AUDRPESS OF THis. DINE AND SRECUTES IT. 


COMawnl ee to 


E,.5CULiION OF 


PVauUAsEe Lhe 
JUMP TO.“ RUNTS.’ 


CALL ENDCHK 
LODI HL, TXTEGN 
od AL, LALUPE 


CALL ZNDCHK 


PSlAPT 


CALL CNDCHK 
LODI DE, TATBGN 


£7 


43 


SAME LINE. 


EAPRESSION, FIND THE TARGET 
TOG ei. 


“**" NEW(CR) *** 


*“«* STOP(CR) *** 


x** RUNCCR) *** 
FIRST SAVED LINE 





9239 219992 RUNNXL LODI EL,@ x** RUNNXL *** 


g23c CD1CH6 CALL FNNLNP FIND WHATEVER LINE # 
B23F DASaS IMP C,START C:PASSED TXTUNF, QUIT 
® 

2242 EB RUNTSL XCH HL,DE *** RUNTSL *** 

8243 229188 ST HL,CURRNT SET 'CURRNT‘'->LINE # 
£246 EB XCH HL,DE 

8247 1313 INC DE,2 BUMP PASS LINE # 

« 

#249 CD3297 RUNSML CALL CHKIO “** RUNSML *** 

3240 21351 LODI HL,TAB2-1 FIND COMMAND IN TAB2 
2@24F C3F8H1 IMP EXEC ND EXECUTE IT 

« 

2252 DF GOTO EXPR *** GOTO EXPR *** 
$253 DS PUSH DE SAVE FOR ERROR ROUTINE 
8254 CDAgB5 CALL ENDCHK MUST FIND A CR 

257 CD1496 CALL FNDLN IND THE TARGET LINE 
S25A C2AL0Z JMP NZ,AHOW NO SUCH LINE # 

Z25D Fi POP AF CLEAR THE "PUSH DE" 
Z25E C34282 IMP RUNTSL GO DO IT 


« 


EMM K KR EK KKK EEK KEKE KKK KK KRANRKKEKNAKREKEKEKEK KCK KM KKK K KEK KKH eK 


* 


* * + OH 4 He He ROO HOUR Uk Oe Ul ll KOM 


* 


eee LIST ee * & PRINT = *™ 


LIST BAS TWO FORMS: 

"LIST(CR)' LISTS ALL SAVED LINES 

"LIST #(CR)' START LIST AT THIS LINE # 
YOU CAN S7OP THE LISTING GY CONTROL © NEY 


PRINT COMMAND IS “FREINT 3.+.-+3° OR. PRINT... +s. CRI 
WHER “Geew Lom Uler OF 2ArPRESITONS, FORMATS, EACK= 
ARROWS, AID STRINGS. THESE ITEMS ARE SEPERATED BY COMMAS. 


A FCRMAT IS A POUND SIGN FOLLOWED BY A NUMBER. IT CONTROLS 
THE WUMBER OF SPACES THE VALUES OF A EXPRESION IS GOINS TO 
BE PRINTED. IT STANS EFFSCTIVE FOR THE SEST OF THE PRINT 
COMMAND UNLESS CHANGED 2Y ANOTHER FORMAT. IF NO FORMAT IS 
SPECIFIED, 6 POSITICNS WILL SE USED. 


A STRING IS QUOTED IN A PAIR OF SINGLE QUOTES Of A PAIR OF 
CLOVELE QUOTES. 


A BACK-ARROW MEANS GENERATE A (CR) WITHOUT (LF) 
A (CRLF?) IS GENERATED AFTER THE ENTIRE UIST HAS BEEN 


PRINTED Of LE THE List 1S 4. NULE List. “HOWEVER IF THE List 
ENDED WITH A COMMA, NO (CRLF) IS GENERATED. 


B26) Co? 735 Gist CALL TSTNUM thet Ll’ THERE IS A # 
8254 CDARIS CALL ENDCHER IF NO # WE GET A £& 
B267 CDisgo CALL FNDLN PIND TEls Cx NET LINE 
G26A DAPIOL LS JMP C,START C:PASSED TXTUNE 
626D CDAA6 CALL PRTLN PRINT [Me SiN 
U272 CU3207 CALL CHEIO DeOP if HiT CONTROL<C 
M272 COlCH6 CALL FNOLNP FIND BEaT SINE 
£276 C36ARB2 JMP LS1l AND LOCP BACK 
B279 GEBE PRINT Lepr Cc,s © oF OF *SPACES 
O27 6 Cr Hove. 7° ewe TreNuLL DES r ok ~ 3" 

B28 


Hel 





B27C. 3B 


B27D 86 

B27E CDPESH CALL CRLF GIVE CR-LF AND 

G23) C3470 2 JMP RUNSML CONTINUE SAME LINE 
9284 CF PR2 TSTC €CR, PRY Af NULL hist VCR? 
8285 8D 

9286 G6 

8287 CDZEDS CALL CRLF ALSO GIVE CR-LF AND 
B28A C339B82 JMP RUNNXL GO TO NEXT UINE 

S?28D CF PRE TSTC ‘#',PRL faon i5 2) PORMAT ? 
BP28e 23 

B28F 95 

B298 oF EXPR YES, EVALUATE EXPR. 
9291 4D EOD NC. ,G AND SAVE IT IN C 
8292 C39BB2 JMP PR3 LOOK FOR MORE TO FRINT 
2295 CD48H6 PR1 CALL QTSTG OR 15 17 A STRING? 
8293 C3A3H2 JMP PRB if HOT, MUST Ge SxXeR. 
B29B CF PR3 Tole 94 +eRSs TE" ¢"» GO -PINDONEAT 
B239C 2C 

Z29D 86 

G29E CDI1BS Caulk IN IN THE Gis? « 

B2A1 C38DG2 JMP FRE LEST CONnTINUSS 

B2A4 COMEDD DRE CALL CRLF LIST ENCES 

G2A7 FP? Fouitoa 

@2A8 DFP PRB8 EXPR EVALUATE THE EXPR 
o2n9 CO PUSH &C 

G2AA CDEERME6 CALL PRTNUM PRINT THE VALUE 

Z2AD Cl POF EC 

B2AE C39BI2 JMP PR3 MORE TO PRINT? 

® 


RMR RK KM RK KH RRR KRM KKK KKK KK KKK KK KEK KKK KK KKK KKKEK HK KKK 


*« 


xk KR GOSUB xkww & RETUBPN kee 

" 

“ 'GOSUE EX®R:* OR "GCSUB EXPR (CRI' 15 LIKE THE. 'GOTO" 

* COMMAND, EXCEPT THAT THE CURRENT TEAT SOINTER, STACK POINTER 
™ ETC. ARS SAVE SO -TRAT EXSCUTICN CAN BE CONTINUED ArTER THE 
* SUBROUTINE “RETURN. IN ORDER THAT ‘GOSUSB' CAN BE NESTED 

* (AND EVEN SECURSIVE), THES SAVz AREA MUST EE STACKED. 

“ THE STACK POINTER 15: SAVED IN  SIKGOS . THE CLD ~STRKGOS* IS 
* SAVED IN THE STACK. LE We ARS IN THE MaIN POUTING, ~sikGcs* 
S15 ZErO (THIS WAS BONE SY T2325 UMAIN” SECTION OF THE CODE), 

* BUT WE STILL SAVE IT AS 2 FLAG FOR NO FURTHER ‘RETURNS. 

* 

= “RETURNCCR?' .UNDOS EVERYTHING THAT “GOSVE*) 51D, AND THUS 

“ REIURN THE EACUTICON TO THE CCHMAND Alter THE MOST RECENT 

* “GOSUB: 2F “Ss°xXGOS ” 25 2ERC, 27 2ENDICATES TRAY We 

* NEVER HAD A ‘GOSUB' AND IS THUS AN ERROR. 

® 

W2B., CDE IG GOSUB CALL PUSHA SAVE tHE CURRENT “FOR” 
B2B4 DP EX?R PARAMETERS 

S255 D5 PUSH DE AND TEXT POINTER 

B2B6 CD1496 CALL FNDLN PIND THE TARGET LINE 
B2B9 C2Ag8Id JMP N2,A&HOW NOT TRERE. Say “HOW?” 
B2EC 2ZAG1H8 LD Ha, CUERNT FCUND 27, SAVE OLD 
B2Br £5 PUSH HL "CURRNT* OLD ‘STKGOsS* 
B2CH 2Ad3 88 LD EL,STKGOS 

B2C3. ED PUSH Hi 

B2C4 218980 LOD 310,29 AND LOAD NEW ONES 

B2C7 228788 ST HL, LOPVAR 


89 


45 





B2 
G2 
B2 
G2 
B2 
G2 
82 
82 
B2 
G2 
G2 
H2 
G2 
B2 
82 
B2 
*« 


“«* 


* 


CA 329 ADD HL,SP 

CB 220388 ST HL,STKGOS 

CE C3422 JMP RUNTSL THEN RUN THAT LINE 
Dl CDAZZ5 RETURN CALL ENDCHK THERE MUST BE A CR 
D4 2A83 88 LD HL,STKGOS OLD STACK POINTER 

D7 7c LOD A.H & MEANS NOT EXIST 

Dé BS IOR L 

D9 CAAASS JMP 2,QWHAT SO, WE SAY: “WHAT?” 
DEE? LOD SP,&AL ELSE, RESTORE IT 

DD El POP HL 

DE 228388 sT HL,STKGOS AND THE OLD 'STKGOS' 
El gL POP HL 

Be 229283 ST HL,CURRNT AND THE OLD 'CURRNT’ 
Ba Dd POP DE OLD TEXT POINTER 

B6 CDD5#6 CALL POPA OLD “FOR" PARAMETERS 
E9 F? FINISH AND WE ARE BACK HOME 


CuK Re RARER AKER KKAMKEKEH KEKE KKK 


KuK FOR wen & NEXT ux 


"FOR HAS TWO FORMS: 

"POR VAR®SXP1l TO EXP2 STEP EXP1‘ AND ‘FCR VAR®EXP1] TO EXP2' 
THE SECOND FORM MEANS THE SAME THING AS THE FIRST FORM WITH 
EBXPIa@l. “Cl.ba, WIth A STEP OF +13 

TBI WILL FIND THE VARIAELE VAR. AND SET ITS VALUE TO THE 
CURRENT VALUE OF EXP1. IT ALSO EVALUATES EXPR2 AND EXP1 
AND SAVE ALL THESE TOGETHER WITH THE TEXT POINTER ETC. IN 
THE ‘FOR’ SAVE AREA, WHICH CONSISTS OF ‘LOPVAR*, ‘LOPINC', 
*‘LOPLMT', '‘LOPLN', AND 'LOPPT'. IF THERE IS ALREADY SOME- 
THING IN THE SAVE AREA (THIS IS INDICATED BY A NON-ZERO 
*LOPVAR'), THEN THE OLD SAVE AREA IS SAVED IN THE STACK 
BEFORE IBZ NEW ONE OVERNALIES iT. 

TBI WIL THEN DIG IN THE STACK AND EIND OUT IF THIS. SAME 
VARIABLE WAS USED IN ANOTHER CURRENTLY ACTIVE '‘'FOR‘ LOOP. 
IF THAT IS THE CASE, THEN THE OLD “FOR” LOOP IS DEACTIVATED. 
(PURGED FROM THE STACK..) 


‘NEXT VAR' SERVES AS THE LOGICAL (NOT NECESSARILLY PHYSICAL) 
END OF THo “FOR” LOGE. THE CCHNTROL VARIABLE VAR. 1S CHECKED 
WITH THE *LOPYAR'. IF THEY ARE NOT THE SAME, TBI DIGS IN 
THE STACK TO FIND THE RIGHT ONE AND PURGES ALL THOSE THAT 
DID NOT MATCH. EITHER WAY, TBI THEN ADDS THE 'STEP' TO 

aA? VARTASEUG AND GEECK THe ReovEl With the vist. iF IT 

IS WITHIN THE LIMIT, CONTROL LOOPS BACK TO THE COMMAND 
FPOLLCWING THE °FOR'’. IF OUTSIDE THE LIMIT, THE SAVE ARER 

IS PURGED AND EXECUTION CONTINUES. 


B2EA CDF1#6 FOR CALL PUSHA SAVE THE OLD SAVE AREA 
H2ED CDIERZS CALL SETVAL oS1 THE CONTROL VAR. 
B2re. 25 DEC. AL Ri 1S ITS ADDRESS 
Vert 229795 sT HaL,LOPVAR SAVE THAT 

B2F4 21D881 LODT HL; TAROT. US& GHALC’ WTO LOOK 
O2i7 63 Feo) JMP EXEC POR THE WORD "10" 
BH2FA DF FRI EXPR EVALUATE THE LIMIT 
G2FB 228BG8 ST HL,LOPLMT SAVE THAT 

B2EE 2ibéegl LODE HL, TABS6=1i USE “ExXEC' TO LOGY 
G3G1 C3F8H1i JMP EXEC POR THE WORD “STEP' 
G3984 DF PR2 EXPR FOUND IT, GET STEP 
G385 C3383 JMP FR4 


18 
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8288 
8388 
S3IBE 
aoil 
8314 
8315 
8318 
Bore 
B31E 
Balk 
8329 
Bac. 
B322 
$323 
8324 
Boao 

8326 
8327 
B32A 
8323 
G22€ 
832D 
3335 
8331 
8332 
8335 
$336 
8339 
333A 
833C 
833F 
8348 
$343 
8344 
8347 
8348 
® 


8349 
B34A 
834D 
B359 
8351 
302 
B339 
$356 
8357 
B3SA 
335B 
B35E 
BI5F 
8362 
8365 
8368 
8369 
B36A 
8368 
S365 
BIoF 
8378 
8371 


218189 
220988 
2A8198 
228D88 
ES 
220F88 
ELGAGS 
2AGTS8 
EB 

68 

68 

39 

3E 

B3 

TE 

23 

Bé: 
CA4493 
TE 

28 

BA 
C22323 
75 

BB 
C22503 
EB 
2198899 
39 
444D 
218AGS 
19 
CDC6 86 
Eo 
2AGPS8 
EB 

FE? 


PE 
DAA4S5 
228588 
D5 
EB 
2A07988 
7¢ 
BS 
CAAS SS 


CDD586 
2AZ598 
C350983 
SE 
3 
56 
2A99 88 
aps 
19 
EB 
2A8788 


FR3 
PRA 
FRS 


FR7 


PRBS 


NEXT 


NX3 


LODI HL,1 

ST HL, LOPINC 

LD Ha, CORRNT 

ST HL ,LOPLN 

XCH HL,DE 

SF HL,LOPPT 

LODI BC,19 

LD HL,LOPVAR 

XCK HL,DE 

LOD H,B 

LOD L,B 

ADD HL,SP 

SKIP 

ADD H1L,8&C 

LOD A,M 

INC HL 

IOR M 

JMP 2@,FR8 

LOD A,M 

DEC HL 

CMP D 

JMP NZ,FR7 

LOD A,M 

CMP E 

JMP N2Z,FRI7 

XCH HL,DE 

LODI HL,S 

ADD HEL,SP 

LOD 3¢,HL 

LODI HL, 12g 

ADD HL,DE 

CALL MVDOWN 

LOD SP,HL 

LD HL,LOPPT 

XCH HL,DE 

PINISH 

TSTV 

JMP C,QWEAT 

ST HL, VARNXT 

PUSH DE 

ACH 4HL,DE 

LD HL,LOPVAR 

LOD A,H 

IOR LIL 

JMP 2,AWHAT 

COMP 

JMP 2,NX3 

POP DE 

CALL POPA 

LD HL, VARNXT 

JMP NX¥S 

LOD E,M 

INC HL 

LOD O,M 

LD HL, LOPINC 

PUSH HL . 

ADD HL,DE 

XCH HL,DE 

LD HL,LOPVAR 
11 


UT 


NOT FOUND, SET TO l 
SAVE THAT TOO 
SAVE CURRENT LINE # 


AND TEXT POINTER 

DIG INTO STACK TO 
TIND ‘LOPVAR' 

HL=8 NOW 

HERE IS THE STACK 
EACH LEVEL IS 18 DEEP 
GET THAT OLD 'LOPVAR’ 
8 SAYS NO MORE IN IT 


SAME AS THIS ONE? 
THE OTHER HALF? 


YES, POUND ONE 


TRY TO MOVE SP 


AND PURGE 18 WORDS 
IN THE STACK 
JOE DONE, RESTORE DE 


AND CONTINUE 


GET ADDRESS OF VAR. 
NO VARIABLE, “WHAT?” 
YES, SAVE IT 

SAVE TEXT POINTER 


GET VAR. IN 'FOR' 


8 SAYS NEVER HAD ONE 
SO WE ASK: “WHAT?" 
ELSE WE CHECK THEM 
OK, THEY AGREE 

NO, LET'S SEE 

PURGE CURRENT LOOP 
AND POP ONE LEVEL 

GO CHECK AGAIN 

COME HERE WHEN AGREED 


DE*VALUE OF VAR. 


ADD ONE STEP 
PUT IT BACK 





8374 73 
£375 23 
3376 72 
8377 2ABBLB 
O37A Fl 
837B BT 
G37C F28923 
G37F EB 
8388 CD76H5 NX1 
8383 Dl 
8384 DAI293 
* 3387 ZAgDBB) 
G38A 225188 
838D 2ARFH8 
8398 EB 
9391 F7 
9392 CDD526 NX2 
B395 F7 


" 


LD nL, LOPLMT BL-JLIMIT 


LOD M,E 
INC EL 

LOD M,D 
POP AP 
_f0R A 

JMP NS,NX1L 
ACH HuL,DE 
CALL CKHLDE 
POP DE 

JMP C,NX2 


LD HL,LOPLN 
Se HL ,CURRNT 
LD HL,LOPPT 
xCH HL,DE 
FINISH 

CALL POPA 
PINISH 


OLD HL 


STEP > @ 

STEP <2 

COMPARE WITH LIMIT 
RESTORE TEXT POINTER 
OUTSIDE LIHIT 

WITHIN LIMIT, GO 
BACK TO THE SAVED 
'CURRNT* AND TEXT 
POINTER 


PURGE THIS LOOP 


RARER KEKKCAEAEAEAEKCK KEKE REECE EEE K EAR KEKRKKHKKKRKK ERR 


® 


‘REM’ 


"ITF 
NOTE THAT THE WORD 


EXPR. 
EXPR. 


IS ZERO, THE 
BY A List Of LTE: 
IN 'PRINT'. IF AN 


EXPR. 


VALUE OF THIS ZXPR. 


IF THE INPUT EXPR. 


tHLS “> BANDLED IN 


pa Ns oe 


| 


® 


9396 219099 REM 
0399 35 

" 

O39R DE TF 
O39B 7C 


TBI TREATS IT LIKE AN 


COMMANDS (INCLUDING OUTHER 
“TAEN* 
IF IT I5 NON-ZERO, 


"INPUT' COMMAND IS LIKE THE 
Te THE ITEM 15.4 
DOUBLE QUOTES, OR IS5 A BACK-ARROW, IT 
ITEM IS A VARIABLE, 
PRINTED OUT FOLLOWED BY A COLON. THEN TBI WAITS FOR AN 
TO BE TYPED IN. 

I? 
(AGAIN IN SINGLE OR DOUELE QUOTES), 
PRINTED FOLLOWED BY A COLON. 
AND SET THE VARIABLE TO THE VALUE OF THE EXPR. 


IS INVALID, 


kee REM *** TP *8* INDUT *** & LET (& 


ee) 


pe SPs fd by 


DEEL I). = "* 


CAN BE FOLLOWED BY ANYTHING AND I5 IGNORED BY TBI. 
‘IP' WITH A FALSE CONDITION. 


IS FOLLOWED BY AN EXPR. AS A CONDITION AND ONE OR MORE 
SEPERATED BY SEMI-COLONS. 

is HOT USEL. 
EXECUTION CONTINUES. 
COMMANDS THAT FOLLOWS ARE IGNCRED AND 
EXECUTION CONTINUES AT THE NEXT LINE. 


TBI EVALUATES THE 
5 tes Ys 


COMMAND, AND IS FOLLOWED 


STRING IN SINGLE OR 
HAS THE SAMS EFFECT AS 
THIS VARIABLE NAME IS 


THE VARIABLE IS THEN SET TO THE 


LODI HL,J 
SKIP 


EXPR 
LOD A,H 


ig 


48 


THE VARIABLE IS PROCEEDED BY A STRING 
THE STRING WILL BE 
TBI THEN WAITS FOR INPUT EXPR. 


TEI WILL PRINT “WEHAT?", 
"HOW?" OR “SORRY” AND REPRINT THE PROMPT AND REDO THE INPUT. 
THE EXECUTION WILL NOT TERMINATE UNLESS YOU TYPE CONTROL-C. 
“INPERR . 


IS FOLLOWED SY A LIST OF ITEMS SEPERATED BY COMMAS. 
EACH ITEM CONSISTS OF A VARIABLE, 
TBI EVALUATES THE EAPR. AND SET 
TBI WILL ALSO FPANDLE ‘L&T' 
THIS 15 DONE BY “DESLT* . 


«MN EQUAL SIGN, AND AN EXPR. 
THE VARIBLE TO THAT VALUE. 
COMMAND WITHOUT THE WORD ‘LET’. 


eu REM RK 


THIS tS LIKE “IF &" 


wm? IF Rx® 


iS THEW EAPR. 997 





Jigs RG: 
390 
B3AR 
S3A3 
BIAG 
« 


O3A7 
V3AA 
B3AB 
83AC 
B3AF 
B3BI 
as 


3B. 
B3B1 
BIB2 
0325 
83B8 
BIBI 
833C 
B3IBEF 
B3ICH 
O31 
B3C4 
B3C5 
B3C6 
B3C7 
B3IC8 
SCY 
B3CC 
83CD 

3CE 
B3Cr 
BID 
BIDL 
B3D4 
BIDS 
B3ID8 
BIDB 
BIDE 
BIDF 
B3E2 
BIE3 
B3ES 
B3E8 
B3IEB 
BIEC 
BIEP 
BIER 
Bark 
Bak 
B3E3 
BIE 
BSES5 
B3E8 
sro 
G3FA 
OIFE 
BEC 
P2ED 


jae 
C249 82 
Cp329eé 
D24292 
C7 


2AZ5 88 


DS 
CD4896 
CIBFS3 
RE 
DAF9 Z3 
Cscrg3 
D5 

BE 
DAA4SZ5 
1A 

4F 

a7 

12 

Dl 
CBSC26 
79 

1B 

2 

Go 

EB 
cAZ1E8 
Bo 

21 Blg3 
228188 
210888 
39 
228588 
DS 
3E3A 
CDDE6E85 
A ee 3 
DF 
GBBSIR 
Dl 

EB 

3 

e3 

72 

Bl 
228188 
Dl 

EL 

Cr - 
zc 

83 
C3Big3 


INPERR 


INPUT 
IPl 


IP3 


eea@e 


Ip4 


IOR L 

JMP NZ,RUNSML 
CALL FPNDSKP 
JMP NC,RUNTSL 
RS TART 


LD 4HL,STKINP 
LOD SP,HL 
POP. HL 
ST HL,CURRNT 
POP DE 
POP DE 
EQU * 
PUSH DE 
CALL QTSTG 
IMP IP2 
TSTV 
JMP C,IP4 
IMP IP3 
PUSH DE 
TSTV 
JMP C,QWHAT 
LD A,( DE) 
LOD C,A 
SUB A 
ST A,(DE) 
POP DE 
CALL PRTSTG 
LOD A,C 
DEC DE 
Sm es, (DE) 
PUSH DE 
XCH HL,DE 
LD HL,CURRNT 
PUSH HL 
LODI HE,IP1 
ST HL,CURRNT 
LODI HL,@ 
ADD HL,SP 
ST  HL,STKINP 
PUSH DE 
LODten eS 
CALL GETLN 
LODI DE,BUFFER 
EXPR 
NOP 3 
POP DE 
XCH HIL,DE 
LOD M,E 
INC HL 
LOD M,D 
POP HL 
ST  HL,CURRNT 
POP DE 
POP AP 
TSec *, °;195 
gMP IPl 

13 
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NO, CONTINUE 

YES, SKIP REST OF LINE 
AND RUN THE NEXT LINE 
IF NO NEXT, RE-START 


un INPERR nReK 
RESTORE OLD SP 
AND OLD 'CURRNT’ 


AND OLD TEXT POINTER 
REDO INPUT 


uw aK INPUT eau 

SAVE IN CASE OF ERROR 
IS NEXT ITEM A STRING? 
NC 


YES. BUT FOLLOWED BY A 
VARIABLE? NO. 
YES. INVUT VARIABLE 


SAVE FOR 'PRTSTG' 

MUST BE VARIABLE NOW 
“What 6 Le NOT. 
GET READY FOR 'PRTSTG' 


PRINT STRING AS PROMPT 
RESTORE TEAT 


SAVE IN CASE OF ERROR 


ALSO SAVE 'CURENT' 
A NEGATIVE NUMBER 
AS A FLAG 

SAVE SP TOO 


OLD HL 

PRINT THIS TOO 

AND GET A LINE 
POINTS TO BUFFER 
EVALUATE INPUT 

CAN BE ‘CALL, ENDCHK'’' 
OK, GET OLD HBL 


SAVE VALUE IN VAR. 


GET OLD ‘CURRNT’ 

AND OLD TEXT POINTER 
PURGE JUNK IN STACK 
LS Nea CH. 7% 6 


YES, MORE ITEMS. 








A488 PT IP5 PINISH 
" 


OAS 1A DEFLT LD A,(DE) “** DEFLT *** 
#482 PESD CMPI @CR EMPTY LINE IS OK 
8404 CA1BBA JMP Z,LT1 ELSE IT IS ‘LET! 
* 

G497 CD7EG5 LET CALL SATVAL «ee LET **e 

B48A CE TSTC ',',LT1 SET VALUE TO VAR. 
BABB 2C 

B48C 83 

SASD C387H4 JMP LET ITEM BY ITEM 
B41B FT Eri FINISH UNTIL FINISH 

* 


Te ee eRe eR RRRE SRR SRR PRR SRR EES EE RA SRS RE RR REAR RSA SS: 2 ARSE ee eee eS ee 


* 


we MK BEXPR i ei 
* 
* 'EXPR' EVALUATES ARITHMETICAL OR LOGICAL EXPRESSIONS. 
* <EXPR>::*<EXPR2> 
* <EXPR2><REL.OP.><EXPR2> 
* WHERE <REL.OP.> IS ONE OF THE OPERATORS IN TAB8 AND THE 
* RESULT OF THESE OPERATIONS IS 1 IF TRUE AND @& IF PALSE. 
* <EXPR2>::4(+ OR -)<EXPR3>(+ OR -<EXPR3>)(....) 
* WHERE () ARE OPTIONAL AND (....) ARE OPTIONAL REPEATS. 
* <EXPR3>::"<EXPR4>(<* OR /><EXPR4>)(....) 
* <EXPR4>;:*<VARIABLE> 
* < PUNCTION> 
* ( <EXPR>) 
* <EXPR> IS RECURSIVE SO THAT VARIABLE ‘@' CAN HAVE AN <EXPR> 
* AS INDEX, FUNCTIONS CAN HAVE AN <EXPR> AS ARGUMENTS, AND 
* <EXPR4> CAN BE AN <EXPR> IN PARANTHESE. 
*® 
* EXPR CALL EXPR2 THIS IS AT LOC. 18 
x PUSH HL SAVE <EXPR2> VALUE 
@411 21DEG1 EXPRlL LODI HL,TAB8-1 LOOKUP REL.OP. 
8414 CIP8BL JMP EXEC GO DO IT 
BAl7 CD4804 XP1l CALL XP18 RELL OP. >= 
G41A DB RET C NO, RETURN HL<«9 
B41B 6F LOD L,A YES, RETURN HL=1 
B41C C9 RET U 
®41D CD49B4 XP12 CALL XP18 REL.OP."#° 
BA28 CB RET 2Z PALSE, RETURN HL 
G421 6F WOOD 2A TRUE, RETURN HL-1 
G422 C9 RET U 
8423 cD4ea4 XP13 CALL XP13 REL.OP.">" 
426 CB RET 2Z FALSE 
9427 D8 RET C ALSO FALSE, HL«9 
8428 6F LOU EL, A TRUE, HL“1 
8429 C9 RET U 
BA42R CD4BBA XP14 CALL XP18 REL.OP. "<=" 
@42D 6F Loo. 7h, A SET HL=1 
842E C8 RET Z REL. TRUE, RETURN 
B42F D8 RET C 
8438 6C LOD L,H ELSE SET HL 
8431 C9 RET JU 
8432 CD4gg4 XP15 CALL XP18 REL.OP,"=" 
8435 CH RET NZ _ FALSE, RETRUN HL=2 
9436 6F LOD. Ly A ELSE SET HL=1 
8437 C9 RET U 
8438 CD4gH4 XP16 CALL XP18 Peigee. (ke 
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a0 





6433 
B43C 
43D 
B43E 
G43F 
B448 
8441 
8443 
8445 
B446 
8449 
BA4A 
B44B 
B44E 
B44F 
B452 
B4ASA4 
® 


B455 
B456 
B457 
458 
S45B 
BASE 
B45F 
B46G 
461 
8464 
8465 
466 
8467 
8468 
S46B 
BA6C 
46D 
B46E 
SAGE 
B478 
8471 
472 
8475 
476 
8479 
B47C 
B47D 

BATE 
B47F 
BABB 
$483 
8486 
r 


B489 
BA8C 
B48D 
B48E 
‘ B482 
GAGS 
B49 3 
B495 
Bigs 


Dg 

6F 

cg 

El 

Go 

79 
E1cl 
E5C5 
4k 
CD5584 
EB 

E3 
CD7695 
Di 
219888 
3ES1 
e3 


Cr 
2D 
26 
2128089 
C37FH4 
Cr 
2B 
BR 
CD89B4 
Ce 
2B 
15 
Eo 
CD89B4 
EB 
E3 
7¢ 
AA 
7A 
19 
DL 
FA6494 
AC 
P2644 
ECs3reu 
Cr 
2D 
83 
E5 
CD89 B4 
CD6AK5 
C36BI4 


CDE6R4 
CF 

2A 

2c 

BO 
CDE6 #4 
3658 
CD6725 
EB 


XP17 
XP18 


EXFR2 


XP21 


XP22 
XP23 


XP24 


XP25 


XP26 


EXPR3 


 XP31 


RET 
LOD 
RET 
POP 
RET 
LOD 
POP 
PUSH 
LOD 
CALL 
ACH 
ACH 
CALL 
POP 
LODI 
LODI 
RET 


TSTC 


LODI 
JMP 
fi 


CALL 
TSTC 


PUSH 
CALL 
ACH 
ACH 
LOD 
XOR 
LOD 
ADD 
POP 
JMP 
XOR 
JHP 
JMP 
Src 


PUSH 


- CALL 


CALL 
JMP 


CALL 
Tstc 


PUSH 
CALL 
LODI 
CaLL 
ACH 


orl 


CKHLDE 
DE 
HL , % 
A,1l 

U 


a 4 aes 


HL, 
XP26 
re’ KP 22 


EXPR3 
‘** 4 XP25 


HL 
EXPR3 
HL, DE 
HL ,( SP) 
A,H 

D 

A,D 

HL ,DE 
DE 
$,XP2Z3 
H 

NS ,AP23 
QHOW 
"=", XP42 


Hi 
EXPR3 
CHGSGN 
XP24 


EAPR4 
om", AP34 


EL 
EXPR4 
B,S 
CHKSGN 
AHL ,DE 


iS 


; Yhow 


PALSE, RETURN HL=% 
ELSE SET HL@1 


NOT REL.OP. 

RETURN HL=“EXPR2> 
SUBROUTINE FOR ALL 
REL.OP.'S 

REVERSE TOP OP STACK 


GET 2ND <EXPR2> 
VALUE IN DE NOW 

1ST <EXPR2Z2> IN HL 
COMPARE 1ST WITH 2ND 
RESTORE TEXT POINTER 
SET Hes, Asal 


NAGATIVE SIGN? 


YES, FAKE “o-* 
TREAT LIKE SUBTRACT 
POSITIVE SIGN? IGNORE 


1ST <EXPR3> 
ADD? 


YES, SAVE VALUE 
GET 2ND <EXPR3> 
2ND IN DE 

1ST IN BL 
COMPARE SIGN 


RESTORE TEXT POINTER 
1ST 2ND SIGN DIFFER 
1ST 2ND SIGN EQUAL 

SO IS RESULT 

ELSE WE HAVE OVERFLOW 
SUBTRACT? 


SAVE 1ST <EXPR3> 
GET 2ND <EXPR3> 
NEGATE 

AND ADD THEM 


GET 1ST <EXPR4>) 
MULTIPLY ? 


YES, SAVE 1ST 

AND GET 2ND <EXPR4> 
CLEAR B POR SIGN 
CHECK SIGN 

2ND IN DE Now 





499 
BAGSA 
B49D 
BASE 
GAg9rK 
BAA2 

B4A3 
BARA 
BAAS 
B4A8 
BAAY 

B4AC 
B4AD 
BABS 
B4B1 
BABA 

G4B5 
G4B8 
BABB 
B4BC 
BABD 
S4BE 
BABY 
G4C2 

BAC4 
GACT 

BAC8 
G4C9 

G4CC 
B4CD 
BACE 
B4D1 
BAD2 

BADS 
BAD7 

B4D8 
BAD 

BADA 
B4DB 
BADE 
BADE 
BAES 
B4E3 

& 


B4E6 
BAEY 
BAEC 
B4ED 
Bars 
BAF 
BAF 
BAP3 
Bara 
BAS 
B4rs 
B4arg 
BAFTA 
BAB 
BAPC 
B4FD 


C3D8H4 
Cr 

pa % 

44 

E5 
CDE6M4 
8689 
CD6785 
EB 

Eo 
CD67B5 
TA 

B3 
CAAS IS 
co 
CD4AG5 
6369 
ew 

D1 


FC6AS5 
C38CH4 


21A981 
Caregl 
ae 
DAFSS4 
7E 
23 
66 
6F 
C3 
CD7788 
78 
B?7 
CE 
cr 
28 
B85 


XP32 


XP33 


XP34 


XP35 


EXPR4 
XP 4H 


XP41 


PARN 


ACH 
CALL 
LOD 
IOR 


LOD 
IOR 
XCH 
JMP 
LOD 
LODI 
IOR 
JMP 
ADD 
JMP 
DEC 
JIMP 
JMP 
TSTc 


PUSH 
CALL 
LODI 
CALL 
XCH 
XCH 
CALL 
LOD 
IOR 
J MP 
PUSH 
CALL 
LOD 
POP 
POP 
LOD 
IOR 
JMP 
LOD 
LOR 
CALL 
JMP 


LODI 
JMP 
ToL 
JMP 
LOD 
INC 
LOD 
LOD 
REE 
CALL 
LOD 
IOR 
RET 
TSTC 


52 


HL,( SP) 
CHKSGN 
A,H 

A 
Spanid 
A,D 

D 

HL,DE 
Na ,AHOW 
A,L 

HL ,f 

A 
Z,XP35 
HL, DE 

C ,AHOW 
A 
NZ,XP33 
XP35 

‘/' ,XP42 


AL 
EXPR4 
B,@ 
CHKSGN 
HL, DE 
HL,( SP) 
CHKSGN 
A,D 

E 
2,AHOW 
BC 
DIVIDE 
HL, BC 
BC 

DE 

4,2 

A 

S ,QHOW 
A,B 

A 
S,CHGSGN 
XP31 


HL,TAB4~-1i 


EXEC 


C,XP4] 
A, 

HL 

H,M 
L,A 

U 
TSTNUM 
A,B 

A 

NZ 
'(',XP43 
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Ist IN HL 
CHECK SIGN OF 1ST 
1S Hy > 200 7 


NO 
YES, HOW ABOUT DE 


PUT SMALLER IN HL 
ALSO >, WILL OVERFLOW 
THIS IS DUMB 

CLEAR RESULT 

ADD AND COUNT 


OVERFLOW 


FINISHED 
DIVIDE? 


YES, SAVE 15ST <EXPR4> 
AND GET 2ND ONE 
CLEAR B FOR SIGN 
CHECK SIGN OF 2ZND 

PUT 2ND IN DE 

GET 1ST IN AL 

CHECK SIGN OF IST 
DIVIDE BY oe? 


SAY "HOW?" 

ELS£ SAVE SIGN 
USE SUBROUTINE 
RESULT IN HL NOW 
GET SIGN BACK 
AND TEXT POINTER 
HE, MUST BE + 


ELSE IT IS OVERFLOW 


CHANGE SIGN IF NEEDED 
LOOK FOR MORE TERMS 


TIND FUNCTION IN TAB4 
AND GO DO IT 

NO, NOT A FUNCTION 
NOR A VARIABLE 
VARIABLE 


JALUE IN HL 
OR IS IT A NUMBER 
* Or DIGIT 


Ox 


NO DICIT, MUST Bs 





B4rYE DF EXPR "( EXPR)" 


BATE CP TSTC ')',XP43 

B5aG 29 

258i B81 

6532 C9 XP42 RET U 

B5Z2 C3A495 XP43  JMP QWHAT ELSE SAY: “WHAT?” 
® 

8586 CDFBBA RND CALL PARN “** RND(EXPR) =** 
8589 7¢ LOD A,H# EXPR MUST BE + 
858A 37 IOR A 

3558 FAIFSS JMP $,QHOW | 

S58E 85 IOR L AND NON-ZERO 

BSG? CAIPRS JMP 2,QHOW 

8512 DSES FUSH DE,HL SAVE 30TH 

9514 ZAl198 LD HL,RANPNT GET MEMORY AS RANDOM 
8517 l1FFB7 LODI DE,LSTROM NUMBER 

B51A E7 COMP 

B51B DA2185 IMP C,RAL WRAP AROUND IF LAST 
9515 21eg08 LODI HL,START 

8521 5z RAL LOD £,M 

@522 23 INC HL 

8523 56 LOD D,M 

8524 221188 ST  HL,RANPNT 

2527 £1 POP HL 

8528 EB XCH HL,DE 

529 C5 PUSH 3C 

B52A CD4Aag5 CALL DEVIDE RND( N) =MOD( 4,N) +1 
852D C1D1 PCP BC,DE 

B52P 23 INC HL 

8538 C9 RET OU 

® 

8531 CDFBB4 ABS CALL PARN *** DBS(EXPR) *** 
8534 CD674a5 CALL CHKSGN CHECK SIGN 

8537 7C LOD A,H NOTE THAT -32766 
538 BA IOR H CANNOT CHANGE SIGN 
8539 FASETZS JMP $,QHOW SO SAY: “HOW?" 
B53C C9 RET U 

852D 2A1388 SIZE LD 4HL,TXTUNF *** SIZE *** 

8548 D5 PUSH DE GET THE NUMBER OF FREES 
B541 2B XCH HL,DE BYTES BETWEEN 'TXTUNF' 
8542 21881F @eee@ LODI HL,VARBGN AND ‘VAREGN' 

545 CDége5 CALL SUBDE 

$548 D1 POP DE 

a549 cg RET WU 


RRA RRRMRHRHNRTRAKENRETRHKM TREK KW RRM RRR HK RRR KEN KET RRR 


® 


anew 84H HAH BR 


«** DIVIDE *** SUBDE *** CHKSGN *** CHGSGN *** & CKHLDE *** 
‘DIVIDE' DIVIDES HL BY DE, RESULT IN BC, REMAINDER IN HL 
'SUBDE’ SUBTRACTS DE FROM HL 


"CHKSGN’® CHECKS SIGN OF HL. IF +, NO CHANGE. IF -, CHANGE 
SIGN AND FLIP SIGN OF B. 


‘CHGSGN' CHNGES SIGN OF HL AND B UNCONDITIONALLY. 


VCKHLDE. CHECKS SIGN OF HieAND DE. IF SIFPEPENT. EL AND DE 
ARE INTERCHANGED. IF SAME SIGN, NOT INTERCHANGED. EITHER 


7 


a5 





“ CASE, HL DE ARE THEN COMPARED TO SET THE FLAGS. 


254A ES DIVIDE PUSH HL ax* DIVIDE *** 
354B 6C LOD L,# DIVIDE H BY DE 
2Z34C 2680 LODI H,8 

85425 CD5595 CALL DV1 

#551 41 LOD B,C SAVE RESULT IN B 
552 7D LOD A,L ( REMAINDER+L)/DE 
£5997 5. POP HL 

6554 67 LOD H,A 

8555 OEFF DV1l LODZ ¢,-1 RESULT IN C 

8557 gC DV2 INC C DUMB ROUTINE 
3558 CD6925 CALL SUBDE DIVIDE 8Y SUBTRACT 
B55B D25785 JMP NC,DV2 AND COUNT 

S55E 19 ADD HL,DE 

BSF C9 RET U 

8568 7D SUBDE LOD A,L «“** SUBDE *** 
B5E1 93 SUB E SUBTRACT DE FROM 
8562 6F LOD L,A EL 

8563 7C LOD A,H 

8564 9A SBB D 

8565 67 LOD H,A 

8566 C9 RET V 

® 

8567 7C CHKSGN LOD A,H *** CHKSGN *** 
3568 B7 IOR A CHECK SIGN OF HL 
8569 FS RET NS IF -, CHANGE SIGN 
” 

856A 7C CHGSGN LOD A,H *“=* CHGSGN *** 
356B 2F CMA , CHANGE SIGN OF HL 
B5EC 67 LOD H,A 

856D 7D TOD A. L 

8565 2F CMA , 

O56F 6F LOD A 

3578 23 INC HL 

8571 78 LOD A. 2 AND ALSO FLIP B 
8572 EESS XORI x'8s" 

B574 47 LOD B,A 

8575 cg RET U 

® 

8576 7C CKHLDE LOD A,H 

8577 AA XOR D SAME SIGN? 

8578 F27CH5 IMP NS,CKL YES, COMPARE 
857B EB XCH HL,DE NO, XCH AND COMP 
857C £7 eKL COMP 

57D C9 RET U 

® 


KReKEARETKKARAKKKK HK KEKE KEKRKKH KEW KK eee ewe ee Kk a ee ee oe Wh owe ow we ow 
« 


wee SET VAG" FIN @"* ENOCH.” "=" &  BRROR (6 eFPRIZNDS) *** 


"SETVAL" EXPECTS A VARIABLE, FOLLOWED BY AN EQUAL SIGN AND 
THEN AN EXPR. IT EVALUATES THE EXPR. AND SET THE VARIABLE 
TO THAT VALUE. 


“PIN” CHECKS THE END OF A COMMAND. EP IT_ ENOEDewWirn. "+"; 
EXECUTION CONTINUES. IF £7 ENDED WITH A Cr, I7 PINDS THE 
NEXT LINE AND CONTINUE FROM THERE. 


++ #€© ££ RO OF 
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a 


bd 


OSTE 
O57 5 
$582 
83583 
9584 
Boo 
2586 
8587 
G589 
O52A 
B58B 
Bec 
858C 
O58E 
*" 

B59 1 
8592 
Boo 3 
6594 
Bo?s 
0598 
£539 
BS59A 
\ fo RB =) 
B53C 
OSIF 


QSAR 
Z5Al1 
B5a3 
*" 


O5A4 
B5A5 
B35A8 
OSAI 
S5AC 
O5AD 
S5AE 
O5Ar 
BOBS 
8581 


"ERROR" 
IT THEN PRINTS THE LINE POINTED BY 'CURRNT' 
INSERTED AT WHERE THE OLD TEXT PCINTER ‘(SHOULD BE ON TOP 
EAECUTION OF TB IS STOPPED 

vCURPR 
THE DIRECT COMMAND IS NOT 


"“ENDCHK"™ 
REQUIRED IN CERTAIN COMMANDS. 


OF THE STAC) 
AND TEI 


PRINTED. 
COMMAND , 
NOT TERMINATED BUT CONTINUED AT 


RELATED TO 
‘QWHAT' 
‘AWHAT ' 
*QSORRY' 
'QHOW' 


ee 
DAA4Z5 
E5 

er 

3D 

23 

DF 
444D 
BL 

ee 

23 

72 

C9 
C3A455 


Cr 
25 
B4 
Es 
C34982 
Cr 
8D 
o4 
raga 
C33782 
cy 


ES 
FESD 
C8 


DS 
LIAESS 
a7 
CD3ICBE 
Dil 
1A 
ge, 
37 
2 
2AG1IBE 


AND 'AHOCW' 


PCINTS TO. 
IS RESTARTED. 
{ INDICATING A DIRECT COMMAND), 
AND IF ‘CURRNT' 
THE INPUT GINE IS NOT PRINTED AND EXECUTION IS 
‘INPERR'. 


JUST GET MESSAGE 
"ASORRY' DO SAME KIND oF 
IN THE ZERO PAGE SECTION ALSO DO THIS 


SETVAL 


svl 


FIN 


ene 


Fig 


ENDC AK 


QWHAT 
AWHAT 
ERROR 


CHECKS IF A COMMAND IS ENDED WITH CR. 
RETURN, AND STOP ETC.) 


HOWEVER, IF 


=> 


“WHAT? “ 


NEGATIVE # 


‘ESRROR' ARE THE FOLLOVIING: 
SAVES TEXT POINTER IN STACK AND GET MESSAGE 
AND JUMP TO ‘ERROR'. 


TSTV 

JMP C,Q2WHAT 
PUSH HL 

TStTc ‘'=',SVl1 
EXPR 

Wa. 28C ,Bis 
POP HL 

LOD M,C 

INC HL 

LOD M,8 

RET WV 

JMP QWHAT 
TSoTC 7s *  Erd 
POP AF 

JMP RUNSML 
TSTC @CR,FI2 
POP Ar 

JMP RUNNXL 
RET @V 
IGNBLK 

CHFPI @GCR 

RET 2 

PUSH DE 

LODI DE,WHAT 
SUB A 

CALL PRTSTG 
POP DE 

LD A,{(DE) 
PUSH AF 

SUB A 

ST a,{( DE) 
LD 


as, 


(GOTO, 


TALS 1S 


PRINTS THE STRING POINTED BY DE (AND ENDS WITH CR). 


Wit Hens ey" 


-> ZERO 


(INDICATING '‘INPUT' 


“WHA TT? a9 


RA IOG. 


xxx SETVAL «xx 
“WHAT?" NO VARIABLE 
SAVE ADDRESS OF VAR. 
PASS “<“ SIGN 


EVALUATE EXPR. 
VALUE IN BC NOW 
GeT ADDRESS 
SAVE VALUE 


NO *="" SIGN 


“xx FIN “nx 


"¢ > - PURGE RET. ADDR. 
CONTINUE SAME LINE 
NOT; 4 (i327 CR? 
YES) PURGE RET. ADDR. 


RUN NEXT LINE 
ELSE RETUPN TO CALLER 


xe ENDCHK ex 
END WITH CR? 
OK, ELSE SAY: “WHAT?" 
wet QWHAT rw 
xe AWHAT «ex 
x=" ERPOR err 
PRINT *WHAT?*, 
OR ‘SORRY ' 
SAVE THE CHARACTER 
AT WHERE OLD DE -> 
AND PUT A 8 THERE 


"HOW? ' 


HL,CURRNT GET CUERENT LINE # 
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B5B4 E5 PUSH HL 


BSES 75 LOD A,M CHECK THE VALUE 
B5E6 23 INC HL 

Z5B7 56 19 MM 

85B8 Dl POP DE 

B5B9 CARGEIZ JMP 2Z,START LF ZERO, JUST RESTART 
O5EC 75 LOD A,M LF NEGATIVE, 

BS5SBD B7 IOR A 

B5BE FAA7TB3 JMP S,INPERR REDO INPUT 

B5C1l CDAAZS CALL PRTLN EXLSE PRINT THE LINE 
g5C4 1B DEC DE UPTO WHERE THE @ IS 
BSCS EL POP AF RESTORE THE CHARACTER 
BSC6 12 oe A,(DE) 

Y5C7 SESE LODI A,‘?' ORINT A "2?" 

B50 D7 OUTC 

BSCA 97 SUB A AND THE REST OF THE 
BSCB CD3CcZ6 CALL PRTSTG LINE 

BSCE C7? RSTART Toe nR EOL ans 

BSCr Ds QSORRY PUSH DE T= OoorRn. «== 

O5DG8 L1IBABS ASORRKY LODI Ba,SORRY *** ASGRRY *** 

B85D3 C3A38H5 JMP ERROR 

® 


pe RRR EORRABRSSABRERRERABRSASRALE SADE ERS SPEER EP REPRE EP eBeRe ee ee ee eee ee ee ee 


*« 


ee ee ee ee 


" 


Ex*® GEILN *** ENDLN (18 FRIENDS?) =** 


‘'GETLN' READS A IN?fUT LINE INTO 'BUFFER'. IT FIEST PROMPT 

THE CHARACTER IN A (GIVEN BY THE CALLER), THEN IT FILLS THE 
THE EUFPER AND ECHOS. IT IGNORES LF‘'S AND NULLS, BUT STILL 
ECHOS THEM BACK. nUB-OUT 15 USED 10 CAUSE If tO DELETE 

THE GAST CHARATER (127 THERE IS CONE}, AND ALT-MOD IS USED TO 
CAUSE IT TO DELETE THE WHOLcG LINE AND START IT ALL OVER. 

CR SIGNALS THE END OF A LINE, AND CAUSE 'GETLN* TO RETURN. 


"FNDLII' FINDS A LINE WITH A GIVEN LINE # {IN HL) I THE 
TEAT SAVE AREA. DE IS USED AS THE T3AT POINTER. IF THE 
LINE IS FOUND, DE WILL POINT TO THE SEGINNING CF THAT LINE 
(IT.B., THE LOW BYTES OF THz LINE #), AND FLAGS ARE NC & @. 

IF THAT LINE IS NOT THERE AND A LINE WITH A HIGHER LINE # 

IS f32UND, DE POINTS TO THERE AND FLAGS ARE NO & NZ. IF 

WE REACHED THE END CF TEXT SAVE ARE AND CANNOT FIND THE 
LINE, FLAGS ARE C & NZ. 

"FNDLE* WILL INITIALIZE DOE TO THE BEGINNING Or THE TEXT SAVE 
AREA ITO START THE SsAsCH. SOME OTHER ENTRIES OF THIS 
ROUTINE WIL NOT INITIALIZES BE AND DO THe SEArCH. 

*FNDLHP' WILL START WITH DE AND SEARCH FOR THE LINE #. 
"ENDNAT: WILL BUMP DE Si 2; FIND & CR AND THEN START SEARCH. 
‘FNOSKP' USE DE TO FIND A CR, AND THEN STRART SEARCH. 


B35D6 Dd? GETLN oOUTC aE MG Le 
B5D7 11371P @eeR LODI DE,BUFFTER PROMPT AND INIT. 
BSDA CD3287 GLL CALL CaaxiIc CHECK KEYBOARD 
B5DdD CADASS JMP 2,GLL NO INPUT, WAIT 
BSEZ D7 GUTS INPUT, ECHC BACK 
ZSEl1 FESA CMPI @LF IGNORE LF 
BSE3 CADASS JMP 2,.GLL 
BIE6 E71 IOR A ' IGNORE NULL 
O5E7 CADASS JMP 2Z,GLl 
BSZA FEVF CMPI @DLCH DELETE LAST CHARACTER? 
BSEC CAFERS JMP 2,GL3 YES 

28 
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eds) Ons 
po: 1 
gor4 
Dass 
3556 
BES 
¥ZEEY 
ZSPA 
P52C 
Bore 
9636 
B§ F2 
B685 
G66 
G6Z28 
86B9 
BELBC 
ZEOF 
S611 


8614 
B§15 
$616 
8619 
® 


gE1C 
Ho LC 
Z61D 
$528 
P62 1 
Yoz2 
£623 
C624 
Pozo 
$626 
8627 
£328 
uo29 
OS2A 
86 2D 
$62E 
862F 


$638 
2639 
eGo 
w 


Boae 
2633 
BGG5 
86383 
$639 
4 


oat 8: 
CAZCHS 
2 

Vg 
FEZD 
cs 

78 
FE7F 
C2DAS5 
73 
PE37 
CAZCHE 
13 
2HOC 
D7 
C3DAI5 
COZESZ 
2a5E 
C3D695 


ise 
B7 
PAO FS 
111598 


ES 
ZA1398 
2B 
E? 
BL 
De 
LA 
75 
47 
is 
LA 
2¢ 
DAI196 
13 
Bs 
cy 


L5 
13 


1A 
PED 
Cesl76 
BS 

C3 ICIG 


GL3 


GL4 


FNDLN 


PNDLNP 
PL 


FPNDNXT 
FLz 


FNDSKP 


CMPI 
JMP 
st 
INC 
CMPI 
RET 
LOD 
CPL 
JMP 
wOD 
CMPI 
JMP 
DEC 
LODI 
OUTS 
Jip 
CALL 
LODI 
JMP 


LOD 
IOR 
JMP 
LODI 


EQU 
PUSH 
LD 
DEC 
COMP 
POP 
RET 
LD 
SUB 
LOD 
INC 
LD 
SBB 
JMP 
DEC 
IOR 
RET 


EQU 
LNC 
INC 


LD 
CMPT 
JMP 
INC 
JMP 


@DLLN 
Z,GL4 
A,(DE) 
Dz 
OCR 

Z 

A,i 


BUFEND, > 


NZ,GL1 
dW ah 


BUPEER,? 


Z,GL4 
DE 
A,@BKS 


Gul 
CRLF 
A,@UPA 
GETLN 


A,H 
A 
S ,QHOW 


DE, TXTBGN 


® 


HL 


HL, TATUNE 


HL 


Hi 

c 
A,(DE) 
L 

B,A 
DE : 
A,(DE 
H 
€,fL2 
DE 

B 

U 


*« 


Ds 


DE 


A,(DE) 
@Ck 
NZ,FL2 
DE 

ELL 


DELETE THE WHOLE LINE? 


Yes 
ELSE, SAVE INPUT 
AND BUMP POINTER 


WAS 1T- Ck? 


YES, END OF LINE 
ELSE, MORE FREE ROOM? 
Y2S, GET NEAT INPUT 


DELETE LAST CHARACTER 
BUT DC WE HAVE ANY? 
NO, REDO WHOLE LINE 
YES, BACKUP POINTER 
AND ECHO A BACK-SLASH 


GO GET NEAT INFUT 
REDC ENTIRE LINE 
CR, LF AND UP-ARROW 


*e* PEDLN *** 
CHECK SIGN OF RL 
IT CANNOT BE - 
INIT. TEXT POINTER 
“** FNDLNP *** 
SAVE LINE # 

CHECK IF WE PASSED END 


GET LINE # RACK 

C,NZ PASSED END 

WE DID NOT, Get SYTE 1 
iS (His THE DINE, 
COMPARE LOW ORDER 


GET BYIE..2 

COMPARE HIGH ORDER 

NO} NOT IBERS Yar 

ELSE We ELTHER FOUND 
iT, GR it 18 NOT THERE 
NC,2:FOUND; NC,NZ:NO 
nx«xw FNDNXT ux 

FIND NEXT LINE 

JUST PASSED BYTE 1 & 2 


we FNDSKP www 

aay tO UID CR 

KEEP LOOKING 

ECUND CR, okie OVER 
CHECK IF “END Cr UIEM? 


Ree Rene RAK EK K KEKE KERN EKA ERE REKEKR ETEK KA TERT KRH AKER Eee 


® 


*« 
® 
Li 


‘PRTSTG' 


PRINTS A S.RING POINTED BY 
* AND RETURNS TO CALLER WHEN EITEER A CR IS PRINTED OR 
" THE NEXT BYTE IS THE SAME AS WHAT WAS IN A (GIVEN BY 


at 


57 


DE. 


*** PRTSTG *** QTSTG *** DRINUM *** & PRTLN *** 


IT STOPS FRINTING 
WHEN 
pee 





ae 4£ 44 444 8 42H HH HH 


*® 


863C 
B63D 
B63E 
B63F 
B64 
8641 
B642 
B644 
8647 
*¥ 


8648 
B649 
S640 
H64B 
B64D 
G65H 
B652 
9653 
8656 
$659 
S65A 
8658 
B65C 
865D 
G65F 
B662 
8663 
G664 
B665 
667 
%668 
B669 
B66A 
B66ED 
Ww 


Z66E 
B66F 
B672 
B673 
B674 
B675 
8678 
B678B 


QUOTE. 


*PRTLN' 


CALLER). 


*PRTNUM' 
IF NEEDED TO PAD 
HOWEVER, 
C, ALL DIGITS ARE PRINTED ANYWAY. 
PRINTED AND COUNTED IN, 


47 

lA 

i 

B8 

cé& 

D7 
FESD 
C23D2Z6 
es 


Cr 

22 

OF 
Spce 
CD3ICHE 
FESD 
Bl 
CA39G2 
Cogoeo 
E9 

Ce’ 

et 

g5 
gB27 
C34DH6 
Cr 

oF 

88 
JESD 
D7 

D7 

El 
C33636 
cy 


DS 
LISASS 
DS 

42 

BD 
CD6785 
F27ES6 
62D 


"QTSTG' LOOKS FOR A BACK -ARROW, 
IF NONE OF THESE, 
OUTPUT A CR WITHOUT A LF. 
THE STRING IN THE QUOTE AND 
AFTER THE PRINTING 
OVER (USUALLY A JUMP INSTRUCTION). 


PRINTS THE NUMBER IN HL. 


OLD A IS STORED IN B, OLD B IS 


SINGLE QUOTE, 
RETURN TO CALLER. 
IF SINGLE OR DOUBLE QUOTE, 


LOST. 


OR DOUBLE 
IF BACK-ARROW, 
PRINT 


DEMANDS A MATCHING UNQUOTE. 


THE NEXT 3 BYTES OF THE CALLER IS SKIPPED 


LEADING BLANKS ARE ADDED 


THE NUMBER CF SPACES TO THE NUMBER IN C. 


PRTSTG 
PS1l 


QTSTG 


QT1l 


QT3 


QT4 


QT5 
PRINUM 


IF THE NUMBER OF DIGITS IS LARGER THAN THE # IN 
NEGATIVE SIGN IS ALSO 


POSTTIVE SIGN IS NOT. 


PRINTS A SAVED TEXT 


LOD 
LD 
INC 
CMP 
RET 
OouTC 
CMPI 
JMP 
RET 


To.1c 


LODI 
CALL 
CMPI 
POP 
JMP 
INC 
JMP 
TSTC 


LODI 
JMP 
TSTc 


LODI 
OUTC 
OUTC 
POP 
JMP 
RET 


PUSH 
LODI 
PUSH 
LOD 
DEC 
CALL 
JMP 
LODI 
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LINE WITH LINE # AND ALL. 


B,A 
A,( DE) 
DE 

B 

Z 


CCR 
NZ,PS1 
U 


tas OTs 


og 
PRTSTG 
G€CR 

BG 

2, RUNNAL 
Hi, 3 
(HL) 
@QT,QT4 


A,@QOT 
QTl 
@BKA,QTS5 


A,X'8D' 


HL 
aie 
U 


OE 

De, 10 
DE 

B,D 

& 
CHKSGN 
NS , PN1 
E,*=* 


oe 


un Ww PRISTG www 
GET A CHARACTER 
BUMP POINTER 
SAME AS OLD A? 
YES, RETURN 
ELOE PRINT IT 
WAS IT A CR? 
NO, NEXT 

YES, RETURN 


www GSTSTG xww 


TT eto.” 

PRINT UNTIL ANOTHER 
WAS LAST ONE A CR? 
RETURN ADDRESS 

WAS CR, RUN NEXT LINE 
SKIP 3 BYTES ON RETURN 
RETURN 

IS -1?f Ao 


YES, DO SAME 
AS: IN 
IS IT BACK-ARROW? 


YES, CR WITHOUT LF 
DO IT. TwHICE TO: GIVE 
TTY ENOUGH TIME 
RETURN ADDRESS 


NONE OF ABCVE 


nw PRTNUM ua KW 
DECIMAL 

SAVE AS A FLAG 
B=<SIGN 
C*SPACES 

CHzeCK SIGN 

NO SIGN 

B-SIGN 





867D 
HETE 
Q67¥F 
BE82 

B683 

8684 

8687 

8688 
8689 

B68A 
BE8C 
BEs8F 
B69 
BE91 
B692 

8693 

8696 

H698 
8699 

BE9C 
B69D 
S69E 
B69F 
S6Ag 
B6A2 

B6A3 

B6ARA 

B6AG 

B6A7 

w 


B6AA 
B6AB 
BEAC 
B6AD 
B6AE 
B6AF 
BEBs 
B6B2 
BEBs 
£SB?7 
B5B8 
BSB9 
BEBC 
w 


3E28 
D7 
C390B6 
78 

D7 

5D 

7B 
FESA 
DL 

C8 
C638 
D7 
C339FH6 


1A 

6F 

13 

lA 

67 

es 
BETA 
CD6ER6 
3E29 
D7 

» 
CD3CH6 
e2 


PN1 
PN2 


PN3 
PN4 


PN5S 


PN6 


PRTLN 


DEC 
PUSH 
CALL 
LOD 
IOe 
JMP 
XCH 
DEC 
PUSH 
LOD 
JMP 
POP 
DEC 
LOD 
IOR 
JMP 
LODI 
OUTC 
JMP 
LOD 
OUTC 
LOD 
LOD 
CMPI 
POP 
RET 
ADD 
OUTC 
JMP 


LD 
LOD 
INC 
LD 
LOD 
INC 
LODI 
CALL 
LODI 
OUTC 
SUB 
CALL 
RET 


C 


C,4 
PRTNUM 
) re | 


A 
PRTSTG 
U 


4 


-~" TAKES SPACE 
SAVE SIGN & SPACE 
DEVIDE HL BY 19 
RESULT 8? 


YES, WE GOT ALL 

NO, SAVE REMAINDER 
AND COUNT SPACE 

HL IS OLD BC 

MOVE RESULT TO BC 
AND DIVIDE BY ia 

WE GOT ALL DIGITS IN 
THE STACK 

LOOK AT SPACE COUNT 


NO LEADING BLANKS 
LEADING BLANKS 


MORE? 

PRINT SIGN 

MAYBE - OR NULL 

LAST REMAINDER IN E 
CHECK DIGIT IN E 

18 IS FLAG FOR NO MORE 


IF SO, RETURN 

ELSE COVERT TO ASCII 
AND PRINT THE DIGIT 
GO BACK FOR MORE 


aus DRTLN W** 
LOW ORDER LINE # 


HIGH ORDER 


PRINT 4 DIGIT LINE # 
FOLLOWED BY A BLANK 


AND THEN THE TEXT 


REMARK TKK EHH RH era ee a me oo 


CE 


*™uerteeeeHeeMHRHRMN HR HS 


‘MVUP! 


‘PUSHA* 
STACK 


wes MVUP *** MYVDOWN 


= Hi 


"MVDOWN' 
UNTIL DE 


"POPA’ RESTORES THE 
STACK 


a ee ee 


STACKS THE 


MOVES A BLOCK 


EOR’ 


es* POPA *** & PUSHA *** 


MOVES A BLOCK UP FROM WHERE DE-> TO WHERE EC-> UNTIL 


DOWN FROM WHERE DE-> TO WHERE HL-> 


hy, 


7 


"FOR' LOOP VARIABLE SAVE AREA FROM THE 


LOOP VARIABLE SAVE AREA INTO THE 





B6EBD 
G6BE 
B6EBP 
B6CSB 
B6C1 
B6C2 
86C3 
® 


GECE 
G6C7 
G6C3 
BECE 
g6CC 
goCcD 
B6CE 
g6CF 
BED 
G6D1 
g6D2 
«" 


BEDS 
B6D6 
g6D7 
B6DA 
G6EDB 
g6DC 
BEDE 
B6ED 
BG6E3 
G6EA 
96E?7 
96E8 
96EB 
BEEC 
B6EFP 
BOFPH 
« 


B6F1 
G64 
B6F7 
S6E8 
B6F9 
B6FC 
G6EFF 
GIBB 
BIGL 
BTBA 
9797 
87198 
37 8B 
979C 
G7TSE 
8719 
8713 
9714 
@717 
8718 
8719 


C3BDMZ6 


78 
92 
C2CE96 
79 
93 
C8 
1B 
2B 
1A 
77 
C3Cb696 


Cl 
El 
223788 
7C 
B5 
CAEFSZ6 


21A71F 
CD6AS5 
Cl 
ao 
D2CF95 
2AS758 
7C¢ 
BS 
CA1737 
2ASESS 


@eea 


MVUP 


MVDOWN 


POPA 


PPI 


PUSHA 


PUL 


auw MVUP wre 


DE * HL, RETURN 
GET ONE BYTE 
MOVE IT 


INCREASE BOTH POINTERS 
UNTIL DONE 


“** MVDOWN *** 
TEST IF DE = BC 
NO, GO MOVE 

MAYBE, OTHER BYTE? 


YES, RETURN 

LSE MOVE A BYTE 
BUT FIRST DECREASE 
BOTH POINTERS AND 
THEN DO iT 
LOOP BACK 


BC = RETURN ADDR. 
RESTORE LOPVAR, BUT 
“9 MEANS NO MORE 


YEP, GO RETURN 
NOP, RESTORE OTHERS 


BC = RETURN ADDR. 


uw PUSHA uw 


EC=RETURN ADDRESS 

IS STACX NEAR THE TOP? 
YES, SORRY FOR THAT. 
ELSE SAVE LOOP VAR.S 
BUT IF LOPVAR IS @g 
THAT WILL BE ALL 


ELSE, MORE TO SAVE 


BC = RETURN ADDR. 


eee oe eee eee eee eee ee eee eee ee ee ee ee ee ee oe ee oe 2a 


COMP 
RET 2@ 
LD A,(DE) 
ST A,( BC) 
INC DE 
INC BC 
JMP MVUP 
LOD A,B 
SUB D 
JMP NZ,MDL 
LOD A,C 
SUB E 
RET 2 
DEC DE 
DEC HL 
LD A,(DE) 
LOD M,A 
JMP MVDOWN 
POP EC 
POP HL 
a HL,LOPVAR 
LOD A,H 
IOR L 
JMP 2Z,PPI1 
POP HL 
ST HL, LOPINC 
POP HL 
ST HL, LOPLMT 
POP HL 
oT HL, LOPLN 
POP FEL 
ST HL,LOPPT 
PUSH BC 
RET U 
LODI HL,STKLMT 
CALL CHGSGN 
POP EC 
ADD 4HL,SP 
JMP NC,QSORRY 
LD HL,LOPVAR 
LOD A,H 
IOR L 
JMP 2Z,PUL 
LD HL,LOPPT 
PUSH HL 
LD HL, LOPLN 
PUSH HL 
LD HL,LOPLMT 
PUSH HL 
LD HL, LOPINC 
PUSd HL 
LD KL, LOPVAR 
PUSH HL 
PUSH BC 
RET VJ 

24 


60 





*s* OUTC *** & CHKIO *** 


THESE ARE THE ONLY I/O ROUTINES IN TBI. 

‘OUTC' IS CONTROLLED BY A SOFTWARE SWITCH ‘OCSW'. IF OCSWeg 
‘OUTC' WILL JUST RETURN TO THE CALLER. IF OCSW IS NOT B, 

IT WILL OUTPUT THE BYTE IN A. IF THAT IS ACR, A LF IS ALSO 
SEND OUT. ONLY THE FLAGS MAY BE CHANGED AT RETURN, ALL REG. 
ARE RESTORED. 


“CERRITO “CHECKS. THE INPUT. If RO INPUT, IT WILk RETURN TO 
THE CALLER WITH THE 2 PLAG SET. IF THERE IS INPUT, Z FLAG 
IS CLEARED AND THE INPUT BYTE IS IN A. HOWERER, IF THE 


SWITCH IS COMPLIMENTED, AND 
“CHKIO” WILL 


INPUT IS A CONTROL-O, THE ‘ocsw' 
Z FLAG IS RETURNED. IF A CONTROL-C IS BREAD, 
RESTART TBI AND DO NOT RETURN TO THE CALLER. 


eeee ££ ee OH OHO RO UU UU 


OUTC. PUSH AF THIS 25 Az LOC. 12 
LD A,OCSW CHECK SOFTWARE SWITCE 

. IQR A 
OTIA C21FS7 OC2 JMP N2,0C3 IT IS ON 
BIlyp: EL POP AF TPS corr 
PILE Co RET U RESTORE AF AND RETURN 
BT1F DBL OC 3 INP 8 COME HERE TO DO OUTPUT 
P72) E6Y2 ANDI “~'d2' STATUS Bit 
Bi 23 ‘CALED7 JMP 24,0C3 NOT READY, WAIT 
B87 26 EF] POP AEF READY, GET OLD A BACK 
Bizt Dol OUT 2 AND SEND IT OUT 
8729 FESD CMPI @CR WAS IT CR? 
Fics Cy RET 2 NO> FINISHED 
B72C 35aA LODI A,@LF 1348S, WE SEND LE TOO 
Bi2s Oe OUTC THIS I5 RECURSIVE 
MIZE 328) LODI A,€CR GET CR SACK IN A 
Bisiv Ca RET JU 
B7I32 NAHB CHKIO INP J ve? CHK, += 
B734 wd NOP, STATUS BIT FLIPPED? 
Biso foe ANDI X'2g9' MASK STATUS BIT 
$737 Cs RET 2 NOT READY, RETURN “Z“ 
8738 DBSIL INP 1 READY, READ DATA 
873A E67F ANDI X'7F' MASK Bit 7. OFF 
pi 30. PEDE CMPI @CO IS 37 CONT ROL-O 7 
BI3E C24B87 JMP NZ,CI1 NO, MORE CHECKING 
BI41 3ASLH3 LD A,OCSW CONTROL-O FLIPS OCSW 
B744 2F CMA, ON TO Orr, OFF TO ON 
B745 320988 oT A,OCSW 
2748 C33287 JMP CHKIO GET ANOTHER INPUT 
B74B FEG3 Cit CMPI @CC Is fT. CONTROL-C? 
B7I4D CB RET NZ NO, RETURN "NZ" 
BI4E C7 RSTART 1397 HREOTAR? TBI 


BT4P 594FP55284D415928 
8757 4£645454428544849 
BTSE 5320535¥41434529 
2767 5S44P 

B769 5941544348295552 
B7I71 2454484520452 F4F 
BI739 28524F5554494645 
Stal S32C 

0783 544F294649582955 
B78B 5£28425547532C28 
BI93 4P5228544P204144 


CHAR ‘YOU MAY NEED THIS SPACE ro' 


CHAR 


CHAR 
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"PATCH UP THE I/O ROUTINES, ' 


‘TO FIX UP BUGS, OR TO ADD' 


20 





B879B 
879C 
BIBRA 
S7TAC 
B7B4 
BTB8 
B7CH 
£7C8 
87DH 
B7TDI1 
87D9 
97EL 
B7TE8 
O7TES 
B7ES8 
STFF 


8898 
B8si 
9883 
B8A5 
B8g5 
B897 
B88a9 
9803 
B8ED 
B8oF 
9811 
8813 
8815 
LPS 


1PIZ 
LE36 


1F37— 


LETS 
PETE 
1FA7T 


2588 


44 


4D4F524529434F4D 
4D4145445328414E 
442846554E435449 
4F4E532E 
§34B592828535941 
4345292949532954 
4845294C494D4954 
2E 
474F4F4429405543 
4B29414E4429474P 
4F44294259452E 
40494348454E2957 
414£472C29313929 
42554E45293736 
LSTROM 
PF ocsWw 
GASB CURRNT 
GOED STKGOS 
VARNXT 
BIBS STKINP 
B89B LOPVAR 
BBBB LOPINC 
BBGB LOPLMT 
B89B LOPLN 
BEGG LOPPT 
GIBB RANPNT 
1598 TXTUNP 
2 TXTBGN 
TXTEND 
VAREGN 
BUFFER 
BUFEND 
STKLMT 
STACK 


CHAR 


CHAR 


CHAR 


EQU 


EQU 
ORG 
EQU 
END 
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"MORE COMMANDS AND FUNCTIONS. ' 


"SKY (SPACE) 1S THE LIMIT.” 


‘GOOD LUCK AND GOOD BYE.' 


‘LICHEN WANG, 


MMM NRM # QW 


START 
TXTBGN 
Hf 
VARBGN 
x'LEFSS' 
yaa 
ALL 
XL72 

w 


XL49 
® 
X*' 2988 ' 


x 


26 


19 JUNE 76' 


ALL ABOVE CAN BE ROM 
HERE DOWN MUST BE RAM 
SWITCH FOR OUTPUT 
POINTS TO CURRENT LINE 


SAVES SP IN ‘GOSUB' 
TEMP STORAGE 
SAVES SP IN ‘INPUT’ 


‘FOR’ LOOP SAVE AREA 

INCREMENT 

LIMIT 

LINE NUMBER 

TEXT POINTER 

RANDOM NUMBER POINTER 
~PSUNFILLED TEXT AREA 

TEXT SAVE AREA BEGINS 
TEXT SAVE AREA ENDS 


VARIABLE @(¥) 

EATRA BYTE FOR BUFFER 
INPUT BUFFER 

BUFFER ENDS 

EXTRA BYTES FOR STACK 
TOP LItitT FOR STACK 


STACK STARTS HERE 





SUNGH & 47 TdWYS FF OAHSINIA$S 


ANYVE OL SGAldnsS 30. ON? 
GWALSAS 
MA9NO)T YO AONVHD €0)28 AO ASYN dade ¢ 


ISTON Nada da YOA AV Tau 
MOUNTS 30 ONINNTOAY TYNOTS § 


ASTON ALL NOH ASNVAS 


SYudtsipad s0VS? 


ATIMSAOMd UNYWHOD HSINTA Lo NUTS 
HSUNITA? 

OAV HIJaadS 140% 

JNSWALYLS SO UNA 3H WINOHSS 
TOIMAd ATAWNYS ¢ 

YdX 44 


YWHWOD YOA NOOTé 
SATdNYS AND *ONS 

MAX $ 

INIOd ANINA LTAVYASRU SE 
HILVd OL LNIOd ANLNAS 
NNYWWOD HOSS 


Tao Zt 

b Ido 

U4‘Y AON 
Of [AW 
V4 AQW 
GSAWYS Vit 


NOANVASH TX] 
AVIAN TIVO 
OST4Y TAW 
gaan TIVa 

AV TAN T1V9 
OSe*V IAW 

WW HSA 

GW HSAld 

MSd HSN 


LYHMO dW 

? JESy 

HIAS TIVO 
MHOUINSA T1829 
WOINSAd OIHS 
: 264 

Y Xo 

,4, Wa 

tT LSM 

SAWYS W1HS 
£ LSN 
HTO4HYSO All 
HAvOSHZBO AY 
»,HOSSAdS, Wo 
HT8TO ONO 


IINYWHOO 


STHL JIQWINI OL STAVL DIS¥A ANIL AATOOW 


20d 
»O0dS 


ch 


*HIdS 


£ LNYLS 


& 


ZO006V9 
vVOds 
UZ 
OO97T 
AS 
ZOPTVYE 


ATOOTE 
LOWS 
FEAL 
ZOSONI 
LOTVITI 
VAAL 
Cu 
GO 

G 
GOeVeoa 
“£3 
ZO¥9TOD 
SO0OVW) 
ZO080CEE 
ft 
0 
Je 
49 
ZOONCE 
AN 
tovg 
A¢Z8 


“;fbSbSvogses 


~m (hm 


(mn (mm 





O8B20 
3LZLO 
IZ 20 
HZZO 
YLZLO0 
ZLLO0 


bZZ0 
TZ220 
APLO 
JI9ZO 
6920 
L720 
P9LO0 
S9L0 
V9Z0 


T9LO 
0720 
HaZO 
YSL0 
Z5L0 
7520 
89520 
S240 
£S20 
O&2Z0 
AvZO 


6B FO 
ZB10 
TBTO 
tTBTO 


63 





H NYS1S{I9OAN SAMYOLSSN 4 


ANOOD SH TS 


JIWIL VIN 
INVLSNOD JIOVWS 


JMAHSINIAS 
H ANVS§ 


‘ 
SHYSLSTOAN ANOLSANS 
MOUNIM NA --ON¢ 
6 JMOW 
09 OL SAINYSS 
SA'TAWYS NAIMLAA asnveds 


"ON UNGH JN 


OYOM JO ATVH N3S0MO TH Of 
SONVMNOVG WAYOLS AVYNY 
ITIWYS ANOLS é 

NVA MSHLONY L399 40ONé 


LAN 


4 JOd 
O13 dW 
Vo MO”0 
Pus ZN 
H Nou 

JON 

dON 

GOT4H IAW 
JA0L3IN ZF 
0 Ido 

H HSNd 
LAM 

ASd dod 

H JOd 

Tt dod 
A353 T1V9 
00dS ZN 
43 NO 
AV131 1199 
QOIM3Sd Yad 
O4JS ANT 

— tf) NNT 

H XOU 

Yeh AON 
O44 IAW 

H XOW 

Vs AQH 
tTLA9G TWO 


<> 


> TaNL 34 


> F 1a 


>O 14 
PAY Ta 


> EdS 


69 

t9 
LOCVLO 
Uk 
LO69C9 
£0 

OO 

00 
5990 
ZLOLHVO 
0044 


G3 


69 

TA 

t3 

. Fa 
LORIN 
ZOHLZEO 
(IT 
ZLOTVYHS 
ZLOBIVE 
ZLOOZE9 
bt 

5 £54 

£L 
OOAL 
He 

£L 
ZOSH09 


vHZoO 
£920 
OHZO 
AYZLO 
3IVZ0 
HvVZO 
YYLO 
549240 
ZYLO 
¢YZO 
cVZO 
TY¥ZO 


OYZO 
4AbZLZO 
AS5ZO 
1620 
¥V42LZ0 
LELO 
9620 
£h&2LZ0 
06240 
8Zo 
3820 
H8Z0 
VOLO 
8820 
L820 
9820 
£820 
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SGQVIWYS NSSMLST AY Vas 
SAWS JO *ONE 


AMO MAdSAH NALS 
SWOOT NO LI aNvATS 


MY3dd99 NO NAL! 


VIVU As é 
ANYAY LON SNYAW ANYMYDS 


SNLYLS L394 

HILIMS DTIYNAAN § 

SLI AVNVSIid LNO NMVAaIWs 
i Bo Gee 00) 

HILIMS AIWYVSII¢s 


~ 
S 


G ll 


. 


134 

MS4d dOd 
HIVO LNO 
O*Y TAW 
AVIA T1¥9 
OOFfY TAW 
HAVO LAO 
HOTO4Y TAH 
MSA HSAd 


LAY 

HAVO NI 

roy Ia (eS | 

WY 

HAYO NI 

HAVO LNG 
HATO INY 
HAVO LNO 
HOcO IYO 


4 


] $0 tuvgOIldsd 


-SdWYS 


= 
wv 


$d3554 


;oL39 


aS Re, 


69 
ta 
AVEN 
OOAL 


ZLOTY 


b93AL 
AVEU 
OTSAL 


SA 


69 
AVA 


LOWRY 


LY 
AVA 
AVEC 
4AN9S 
AVC 
Oc9d 


Bil Z0 
PIIZO 


SIZ0 
vitZoO 
cUZoO 
ON ZO 
fIZO 
HIZO 
6020 
£920 
9920 


SIZO0 
£IZO0 
0929 
ATZO 
dZo 
HHZ0 
6H2Z0 
LALO 
GHA2Z0 
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EG 
2a” 
ao 
ee. 
33 
31 
34 
Sis. 
44 


1, 
133 
124 
144 
|e 
163 
Le 
184 
193 
2547 
214 
224 

1394 
on Sy 
1 is: 
W249 
1434 
1949 
1959 
13633 
1473 
1389 
199% 
2449 
23819 
23929 
24945 
24959 
2362 
ANT 4 
293934 
2395 
21914 
2129 
2139 
2144 
2154 
2164 
2175 
21839 
3489 
3414 
3929 
34329 
3444 
3454 
346 


REM ENHANCED SPEECH RECUGNITION PRUGRAM 

REM --- PROGRAM 1 --- 

REM --- MOD ALLOWS USER’ fO KEEP WORD TA3LES 
REM --- AS DESIRED. 

V=19 

INPUT "CLEAR TABLES?31 FOR YES,2 FOR NO"X 
IF X = 2 GOTO 194 

REM CLEAR T43LES 


rOR [23 [TO 64*V=-1 
9¢€790+1)=4 


LEST. I 
INPUT "lsTs,2=P"X 
IF X # 1 GOTO 179 
GOSUB 14093 
GOTO 1289 
Ir X # 2 GOTO 299 
GOSUB 2905 
PRINT "RECOGNIZED: "aN 
GOTO 129 
PRIN?" 
GOTO 129 
RE4 TRAINING ROUTINE 
INPOT “NUABSER'N 
Leon > Veee Ty "2" 
SirGk)} S=f2CH 
G0SU3 34999 
REM GET 64 PARAMETERS 
=64 
rOa J=9 TO 5-1 
ICTABA+N *S+J)=9C6490+)) 
NEXT J 
RETURN 
QA=aM PERFORMANCE ROUTINE 
GOSJ3 3095 
rOR [=664 [TO 663+V 
ACI )=9 
Nex? I 
FOR I[=49 TO Vel 
rOR J=4 TO So-l 
%=43590638¢699+J)-8°0799+S*I+J)) 
Ir 8€664+1)<27599 3¢664+I1)=9¢ 664+I +K*X 
NEXT J 
NEAT f 
te FIND SMALLEST DIFFERENCE 
A=32909A,N=93 
FOR [=4 TO 9 
Ir 3€¢664+1)<A 45-806 664+I1)5N=I 
NEAT f 
ao lUuRN 
S29 SPEECH COLLECTION ROUTING 
G2) 
SP=E 
T=6 
FOR IT=C TO 599 STEP 4 
9CT)+@CI+1)+€8C1+2)>1T GOTO 3090 
NEXY’ I 


GOTO 42 


CH 1545194 
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a -S 


3073 PRINT "NO SPEECH" 
3483 RETURN 

3394 8=I 

31493 D=3 

3114 FOR I=D To 599 STEP 4 


3123 
3132 
3144 
3153 
3163 
318% 
3194 
3299 
3213 
3225 
3233 
32 43 
32355 
3263 
3273 
32 34 
3294 
33 34 
3319 
332 3 
3339) 
3344 
3354 
3369 
3372 
33 34 
3399 


Ir @C IT) )+@cI+#1)+9¢1+292)<1f GOTO 3162 
NEXT I 
PRINT 
RETURN 
B=] 
L=(E-3)/4+1 
L<19 C=£;GOlT9O 33423 

J=& TO £+39 STEP 4 
9¢J)+9¢CJ3+1)48CJ5+2)>7 D=JsG)JT)J 3114 
ae 

COMPUTE AVERAGE 


“SPEECH OUT OF WINDOW 


cep lt) 4) O 3} 
Ay 


Oa aa oe 


aye, Pepe 


TVA MN Be 


I=8 TO © Seep 4 
2+3aC[)+9¢C1+1)+8C1 +2) 


YU") 


vw. WOU 


ra 
x 
Lomae | 
tH 


Q=P/L/3 
Y=10*«L/16 
D=374«19 

FOR K=3 (0 §S-1 
9=D/193R=D-9«1G 
Q=Q*4 

rOR J=9 T) 3 
AC6494K4+JI=0069604)544)29004J))#€27194+8090+J)) 
Nisa Too 

D=D+Y 

VwrT 

RETURN 


ster 4 


The following changes are required to convert Program l to 
Program 2, which utilizes Polynomial Regression along with the 
Kuclidian Distance measure of Program 1: 
cay) 
(2) 


Add line 105 105 INPUT F 
Change line 2090 to read: 


2090 IF @(66441 )< 27500 @( 66441) = @(66441 ) +X*X-F*X 
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ADDR Bi B2 B3 E LINE 


3700 
3700 
3700 


3700 | 


3750 
3700 
3700 
3700 
3700 
3700 
3760 
3703 
3706 
3709 
370B 
37CE 
371% 
3713 
3716 
3728 
374A 
371D 
37 iF 
Agee 
3925 
3726 
S720 
372A 
3728 
372C 
S228 
rare 
3732 
3734 
3737 
3739 
373C 
3735 
3741 
3743 
3746 
3747 
374A 
374D 
3730 
3753 
3756 
3759 
3759 
375A 
375B 
3755 
373F 
3760 
3763 
3763 
3765 


00 
94 
7D 
0D 
D8 
B4 
4A 
6F 
a 
32 
5B 
63 
2A 


15 


03 


13 


a 
i3 


20 
a7 
a7 


38 
37 


37 


37 
37 
37 
37 
38 
3? 
37 
37 
38 
37 
38 
a7 
20 
3? 


37 


20 


37 


37 


O0i0 
vO20 


PAGE O2 


LABEL OPCD OPERAND 
* CSRMON 
* 
* KEYBOARD INPUT: CONTROLLER TO CALL CSR1 
* 
* LLOYD RICE, COMPUTALKER CONSULTANTS 
* VERSION 1.06 MAY 30, 1977 
tt 
* DEFINE INPUT STRING 8UFFER LENGTH 
INBFLN EQU 76 
t 
CSRMON LXI SP,2000H * THIS LS THE ONLY STACK INSTR 
LXI H,MSGi 
DSPO CALL DISPLA * DISPLAY HEADING AND CUE 
MVI A,ODH * THEN ANOTHER CR 
DSPL CALL CHROUT 
Cx H, BUFF 
MVI C, INBFLN=2 . 
CHLOOP CALL CHRIN * READ A CHAR FROM KBD 
ANL 7FH < 
CPI ae 
JC CTRL 
CPI 'Z 4] 
JNC Sty 
DCR C 
JINZ DSP2-2 
IN& C 
JMP  CHLOOP 
MOV M,A 
INX H 
DSP2 CALL CHROUT * DISPLAY THE CHAR 
JMP CHLOOP * GET ANOTHER 
2 
CTRL CPI i8H * CTRL X 
JZ pSPl * ECHO IT TO CLEAR THE SCREEN 
CPI 10H * CTRL P 
Jz REPLAY * PLAY THE LAST ONE AGAIN 
CPI 2 * CTRL B 
Jz BUFDIS * DUMP THE BUFFER 
CPI ODH 
JINZ CHLOOP * IGNORE ALL ELSE BUT CR 
MOV M,A 
CALL CHROUT * ECHO THE RETURN 
LX! 4,BUFF 
CALL CSR1 * COMPUTE AND SAY IT 
CNZ ERROUT * SOMPIN' HAPND, WRITE ERR MSG 
CUE] {x1 H,MSG2 
JMP DSPO 
* 
REPLAY PUSH H 
PUSH B 
CALL PLAY * PLAY THE LAST ONE AGAIN 
POP B 
POP H 
JMP  CHLOOP 
t 
GTZ CPI FH * CHAR > '2*, CHECK FOR RUBOUT 
JINZ CHLOOP 
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ADDR 


3768 
3769 
376A 
376B 
376C 
376F 
B76F 
BOF 
Bo) 2 
a773 
3173 
3773 
3775 
o777 
377A 
a7 7¢ 
3770 
377D 
5770 
a7 70 
S77 
3780 
3781 
3784 
3785 
3788 
3788 
3788 
3789 
378C 
378D 
378F 
3790 
791: 
3794 
3794 
3795 
3798 
379B 
J79E 
37A1 
37A4 
37A6 
37A7 
37AA 
37AD 
3780 
2752 
3783 
37B4 
37B4 
3800 
3800 


3800 


3800 
3800 
3800 


Bl 


OD 
28 
00 
00 
C3 


CD 
G9 


TE 
FE 
C8 
cD 
23 
C3 


B2 


2c 


ye) 


00 


13 
Ol 


04 
D8 


7D 


D8 


OD 


88 


59 
4§ 
49 
42 
x2 
45 


4E 
52 
45 
3A 


B3 E LINE 


a7 


3) 


37 


uu 
~t 


38 


a7 


4E 
45 
53 
59 
55 


54 
20 
58 


0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
O7190 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 
0890 
0900 
0910 
0920 
0930 
0940 


0950 
0960 


0970 
0980 
0990 
1000 
1010 
1020 
TO30 
1040 
1050 
i060 


LABEL OPCD 
DUR 
DCX 
NOP 
NOP 
JMP 


* 


PAGE 02 
OPERAND 


c 

H 

* * MVI A,AX WITH CHAR TO ECHO 
vd - ON RUBOUT (IF NOT 7P8) 
DSP2 


* CHAR INPUT (CALLED FOR CONSOLE KBD INPUT) 


CHRIN CALL ‘TTYIN * REDEPINE AS NEEDED 
RET 
2 
* TTY INPUT HANDLER 
TTYIN IN QO 
ANI 80H 
JZ $-4 
IN uf 
RET 
2 
* MESSAGE OUTPUT LOOP, STOP ON CHAR#=04 
4 
DISPLA MOV A,M * GET CHAR 
CPI 4 
RZ * * RETURN IP EOT 
CALL CHROUT * NO, OUTPUT_IT . 
INX H * 
JMP DISPLA 
¥ 
* ERROR MSG OUTPUT, STOP ON CR (0DH) 
ERROUT HOV A,M 
CALL CHROUT 
MOV A, 
CPI ODH 
RZ 
INX H 
JMP ERROUT 
* 
MSG1 DB OCH * PIRST CLEAR THE SCREEN 
oT "SYNTHESIS BY RULE’ 
MSG2 DB ODH 
DT "ENTER TEXT: ' 
DB ODH 
DB 4 z 
+ 
BUFF DS INBFLN * PHONEME STRING INPUT BUPYZER 
2 
* END OF CSRMON KEYBOARD INPUT HANDLER 


2 
warrrrert * 
Ld 


* DIAGNOSTIC DUMP ROUTINES FCR INFO & DEBUGGING 
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ADDR Bl 


B2 


ray 
7D 
02 
06 


95 
9D 


13 
D6 


04 
05 


2D 
Di 


$2 
06 


2c 


06 
0B 


DP 
05 


C4 


B33 £ LINE 


38 
37 
35 
33 


38 


35 
38 
338 
38 
29 
Co 


38 
38 


38 
38 


38 


20 
00 


36 
35 


1079 
i080 
1090 
1100 
Peco 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
i390 
4209 
1210 
i220 
L230 
12406 
£250 
12649 
£279 
£280 
L290 
1300 
Loa¢ 
4320 
4330 
1340 
1350 
£360 
1370 
eC 


1390 


1400 
1410 
1420 
1430 
1440 
2450 
1460 
1470 
l4a9 
1490 
1509 
EoLd 
L520 
13390 
1549 
1550 
1560 
15790 
1580 
1594 
1609 
1610 
1629 
1639 


LABEL 


® 


* DISPLAY 
* (CALLED 
MATDIS 


DLI 


DL2 


DL3 


BUFDIS 


ee ¢ & 


(CALLED 
BUFDIS 


PHLOOP 
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OPCD OPERAND 


ORG CSRMON+100H 


CURRENT MATRIX CONTENTS 

BY INSTR INSERTED IN CSR1 CODE) - 

LXI H,MDTX 

CALL DISPLA * DISPLAY “FEATURE MATRIX" 
LHLD NEGEND 

LXI 0D, MATRIX+2 

DAD 
MOV 
CMA 
MOV 
MVI 
CMP 
JC 
MOV 
PUSH 
LXI 
INX 
CALL 
DCR 
JNZ 
CALL 
PO? 
MVI 
LX1 
PUSH 
LXI 
DAD 
PUSH 
INX 
MOV 
CALL . 
CALL BLANK 

DCR c 

JNZ DL3 

CALL CROUT 

POP H 

POP B 

DCR B 

JNZ DLZ 

NOP as * "CALL CHRIN’ TO PAUSE HERE 
NOP 

NOP 

RET 


» O 
tw > 7 
to) 


* NUMBER OF COLS TO DISPLAY 


~ + ~ ~ 
Wm 


»MATRIX+1 


ODOUT 


Dr 
Ot 
CG 
4 


< 2 


‘ATRIX+1 


» = 


»;MATLEN 


GOrrnroonrndnanonnanrerwanwwoan 


« 


DUMP THE CURRENT BUFFER CONTENTS 


BY CTRL 8 CURING INPUT) 
LHLD BUFADR 

LXl Opis 

DAD D 


SHLD BSUFPTR 

LXI H,MATRIX+2L 
MOV A,™ 

Cri 4 


Gs, 





ADDR 


3385B 
385E 
385F 
3862 
3863 
3864 
3865 
3866 
33867 
386A 
386B 
386E 
3871 
3874 
« 3877 
387A 
387D 
387F 
3882 
3883 
33886 
38387 
3888 
388B 
388E 
388F 
3892 
3895 
3896 
3897 
3898 
3899 
389A 
389D 
389D 
389D 
389E 
34H9F 
38A0 
3843 
38A4 
38A5 
38A6 
38A8 
38A9 
38AA 
38AD 
38AE 
38AF 
33B0 
38B3 
38B5 
38B8 
38BB 
38BC 
38BD 
338BD 


B2 
53 
1G 


aE 
D6 


74 
DF 


58 


OA 


00 


D8 


B5 
20 
D8 
Di 
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B3 E LINE LABEL OPCD OPERAND 
37 1640 J2 CUEI * GO BACK TO INPUT LOOP 
1650 PUSH 5 
Ol 1660 LXI D,MATLEN*4 
1670 XCHG 
1680 DAD D 
1690 MOV A,M 
1700 MOV B,A - 
i710 ORA A 
38 LeU JZ ENDLP 
1730 XCHG 
38 1740 CALL CODOUT 
36 1750 LELD BUFPTR 
38 i760 JMP PHLP 3 
38 1770 PHLP2 CALL BLANK 
38 1780 CALL BLANK 
38 1790 CALL BLANK 
1800 PHLP3 MVI ci 
38 1810 FRLOOP CALL BLANK 
13820 MOV AM 
38 1830 CALL BYTE 
1840 INX H 
1850 DCR C 
38 1860 JN2 FRLOOP 
38 1870 CALL CROUT 
1880 DCR B 
38 1890 JNZ PHLP 2 
36 1900 SHLD BUFPTR 
5920 NOP 
1920 NOP 
1930 NOP 
1940 ENDLP POP H 
1950 INX H 
38 1960 JMP PHLOOP 
2370 * 
1980 * OUTPUT PHONEME CODE OF CURRENT MATRIX COLUMN 
1990 CoDOUT MOV AM 
2000 ADD A 
2910 XCHG 
20 2020 LHLD PVTAB 
20 30 ADD L 
2040 MOV L,A 
2050 MOV A,H 
2060 ACI 0 
2070 MOV H,A 
2080 MOV A,M 
38 2090 CALL CHROUT 
2100 INX H 
2110 MOV A,M 
2120 ORA A 
38 2130 JN2 +5 
2140 MVI Ay 
38 2150 CALL CHRCUT 
38 2160 , CALL BLANK 
21470 XCHG 
2180 RET 
22:90 * 
2200 * THE FOLLOWING ROUTINES ARE USED ONLY BY 
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ADDR 


38BD 
338BD 
3aBE 
38BF 
38CO 
38Ci 
38C 2 
$8C5 
38C6 
38C8 
3aCA 
38CB 
38CD 
38CE 
38Di 
38Di 
3833 
3&D6 
33D6 
38De 
38D8 
338D8 
338D8 
38D3 
38DC 
38dC 
38DC 
3dDD 
38DF 
J8E\ 
38E4 
S655 
SBE? 
38E9 
38EA 
38EC 
38EF 
34¥EP 
38EF 
38F0 
38F 3 
38F6 
36F9 
38FC 
38FE 
38FF 
3969 
3900 
3900 
3900 
39090 
3900 
3900 
2000 
2000 
2003 
2006 


Bl 


F5 
UF 
OF 
OF 


CD 
gee 
Eo 
C6 
27 
CE 
27 


C3 


ae 
C3 


3E 


CD 
C9 


FS 
DB 
E6 


Fi 
D3 
FE 
co 
3E 
C3 


UF 
90 


40 
D8 


20 
De 


OD 


Q0 
Ol 
DD 


ol 
OD 


DA 
DC 


45 
55 
20 
54 
58 


33 


338 


38 


33 


38 


38 


41 
52 
4D 
52 


2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
27.0 
2720 
2730 
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LABEL OPCO OPERAND 
* LOCAL CALLS, NOT BY CSRI1 
BYTE PUSH PSW * OUTPUT (A) AS 2 HEX DIGITS 
RRC 
RRC 
RRC 
RRC 
CALL HEXO , 
POP PSW 
HEXO ANI OFH * MASK OFF UPPER HALF 
ADI 90H 
DAA 
ACI 40H , 
DAA 
JMP CHROUT * OUTPUT HEX DIGIT & TAKE LAST RET 
* 
BLANK MV Ayes 
JMP  CHROUT * OUTPUT A SPACE 
* 
CROUT MVI A,UDH * OUTPUT CR, (LF) 
* 
* CHAR OUTPUT (CALLED TO OUTPUT (A)) 


* REDEFINE AS NEEDED ° 
CHROUT CALL TTYOUT * REDEFINE AS NEEDED 
RET 
* 
* TTY OUTPUT HANDLER 
TTYOUT PUSH PSW 
IN 0 
ANI 1 
J2 S-4 
POP PSw 
ouT 1 
CPI ODH 
RNZ 
MVI A,OAH * LAST CHAR WAS CR, oe. 
JMP TTYOUT * ADD A LINE FEED 
¥ 
* 
MDTX DB ODH 
DT ‘FEATURE MATRIX' 
DB ODH 
DB 4 
. 
keeextceceenke kk 


* 


* A PORTION OF THE CSR1 JUMP TABLE IS DEFINED 
* TO ALLOW ACCESS TO MISC. CSR1 ADDRESSES 
¥ 


ORG 2000H 
* 
CSR1 DS 3 
PLAY DS 3 
BUFADR DS Z 


qe 





ADOR Bi B2 B3 E LINE 


2008 
200A 
200C 
200C 
200C 
200C 
200C 
200C 
200C 
200C 


2740 
A200 
2760 
2270 
2780 
2790 
23800 
2810 
2820 
2830 


* OTHER CSRi LOCATIONS DEPENDENT ON LOC 
3500H 


LABEL OPCD OPERAND 
BUFEND OS 2 
PVTAB OS 2 
COMRAM EQU 
NEGEND EQU 
MATRIX EQU 
MATLEN ECU 95 
BUF PTR EQU 
* 


COMRAM+2 
COMRAM +4 


MATLEN*5+MATRIX 


(3 
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OP COMRAM 


A a i mae 
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ADDR Bi B2 B3 E LINE LABEL OPCD OPERAND 
2090 9010 * PARSE 
2099 0020 * 
2034 03330 * SECTION i OF THE CSRi SYNTHESIS BY RULE SYSTEM 
2099 0040 * 
20909 0050 * LLOYD RICE, COMPUTALKER CONSULTANTS 
20900 93060 * VERSION 1.07 MAY 30, 1977 
f 2099 Qggq70 * 

2009 0080 * THE ENTIRE CSRi SOFTWARE SYSTEM IS PROVIDED 
2009 0090 * BY COMPUTALKER CONSULTANTS WITH THE UNDERSTANDING 
2099 0100 * THAT IT MAY BE REPRODUCED FOR NON-COMMERCIAL 

. 2093 0110 * PURPOSES, PROVIDED THAT THE SOURCE IS QUOTED. 
2900 9120 * OTHERWISE, ALL COPYRIGHTS ARE RETAINED. 
2040 9130 * (C) 1977, COMPUTALKER CONSULTANTS 
2909 ' 9140 * 
239d 03159 kek kekkkkak 
2094 Q163 * 
2099 Qi73 * ASSEMBLE ALL SECTIONS TO BEGIN AT THE SAME 
2030 9180 * STARTING ADDRESS. THIS WILL BE THE ADDRESS 
2334 9190 * AT WHICH TO CALL THE CSRi SYSTEM 
2999 0230 * 
24a90da 0219 TRO RRR RE SR Ef 
2000 g220 * 
2300 0230 * COMMON (JUMP) ADDRESS REFERENCE TABLE 
2030 0240 * THIS TABLE ALLOWS REASSEMBLING ANY SECTION 
2090 0253 * WITHOUT CHANGING REFERENCES IN OTHER SECTIONS 
2004 0260 * 
20¢a Q270 * ANY SECTION MAY BE MOVED BY CHANGING THE ORG 
2334 0289 * AT SECTAD (SECTION i IS SLIGHTLY DIFFERENT). 
2009 Q290 * ALL REFERENCES WILL BE HANDLED CORRECTLY. 
2694 0300 * THE COMMON RAM WORKSPACE DOES NOT SHARE THIS 
2399 Q310 * NICE PROPERTY. IT MUST BE DEFINED THE SAME 
2990 Q320 * IN ALL SECTIONS. 
2099 0330 * 
239d 0349 Raekakkkaknhk 
2030 0320. * 
2099 0360 * THE PARAMETER 8UFFER IS DEFINED BY CONSTANTS IN 
2334 9370 * LOCATIONS BUFADR AND BUFEND. SBUFADR CONTAINS THE 
2390 9380 * ADDRESS OF THE iST BYTE OF THE FRAME COUNT, AND 
2030 9390 * BUFEND CONTAINS THE LAST ADDRESS AVAILABLE AS 
2039 0400 * BUFFER SPACE. 
2334 0410 * THESE LOCATIONS ARE DEFINED ONLY IN SECTi SOURCE 
20900 0420 * 
209d 0430 wkke#ktkkkhkkenak 
29939 0440 * 
2009 0450 * COMMON JUMP ADDRESS TABLE 
29¢c9 0460 * 
2399 0473 COMJMP EQU $ 
20383 0480 * 
20339 c3 3A 20 3490 JMP CSR 
29033 0500 PLAY DS 3 
2006 00 39 Q510 BUFADR DW COMJMP+1900H * iST BUFFER LOC AVAIL 
2008 FE SP 0520 BUFEND DW COMJMP+3FFFPH * LAST LOC AVAILABLE 
200A C5 22 9530 DW PVTAB 
Z206e..C.3 AC 22 0540 JMP MAT PAK 
200F C3 9A 22 Q550 JMP MATERR 
2012 05690 RULES DS 3 
2015 0570 SETDUR DS 3 
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ADDR Bi B2 B3 E LINE LABEL OPCD OPERAND 
2018 0580 RULES3 DS 3 

203B 0590 GENFO DS 4 

201E 0600 CLRBUF DS 3 

2024 0610 GENPRM DS 3 

2024 0620 DUMMY DS Zea 

203A 0630 * 

ZOIA 0640 SECTAD EQU $ 

203A 0650 * 

2034 0660 ketkekerkeee 

203A 0670 * 

203A 0680 * COMRAM ORIGEN DEFINITION 
203A a690 * 

203A a700 ORG COMJIMP+1500H 
3500 0710 COMRAM EQU $ 

3500 a720 * 

3509 0730 * CSRi SYSTEM RAM SPACE DEPINITION 
35090 0740 * 

3500 0750 MATPTR DS 2 

3502 0760 NEGEND DS 2 

3504 0770 MATRIX EQU $ 

3504 0780 MATLEN EQU 95 

3504 | 0790 PHCODE DS MATLEN 
3563 Q800 FEATA DS MATLEN 
3562 0810 FEATB DS MATLEN 
3621 0820 STRES DS MATLEN 
3680 a830 DUR DS MATLEN 
36DF 0840 MATEND EQU $ 

36DF agsa * 

J6DF 0860 * PARSE (LOCAL) RAM WORKSPACE 
J6DF as70 * 

J6DF Q880 CHAR DS Z 

3J6E0 0890 PHON DS 2 ’ 
36E2 a900 NUM DS 1 

J6E3 0910 INPTR DS 2 

36E5 a920 * 

36E5 0930 tetkkerreaekheth 

J6E5 a940 * 

36E5 0950 * CSRi SYSTEM MAIN ROUTINE 
J6E5 a960 * 

36E5 0970 ORG SECTAD 
203A agso0 * 

203A 0990 * DEFINE PHONEME CODES FOR PARSE 
203A 1000 * 

203A 1010 CPAUSE EQU Z 

203A 1020 CTERM EQU 4 

203A 1030-°CA x EQU id 

203A 1040 CEL EQU 29 

203A 1050 CEM EQU 30 

203A 1060 CEN EQU oa 

203A 4070 CL EQU 23 

203A 1080 CM EQU 36 

203A 1090 CN EQU a7 

203A A106 “CT EQU 4Q 

20 34 1110 265 EQU 44 

203A 4120 CSH EQU op 

203A 4330 CZH EQU 55 

203A 4140 CCH EQU 56 


fe 





ADDR 31 32 B3 E LINE 


203A 
203A 
253A 
203A 
233A 
203A 
203A 
203A 
203A 
203A 
zO3A 
203A 
ZI3A 
233A 
203A 
203A 
203A 
203A 
223A 
203A 
2034 
233A 
2G3A 
253A 
20 3A 
293A 
203A 
203A 
ZI3A 
2333 
2u3¢ 
Zo3F 
2242 
2043 
2044 
2045 
2043 
2243 
2354 

234D 
ZO4E 
2054 
2354 
£450 
2526 
2us7 
2924 
2e25 
205 
220 
2060 
2502 
2362 
2063 
2363 
2563 
2063 


ie PO et AGIA OS, SC CTT Cn Bt Tn, A GTO me i RR 
ei he eet el 


63 
60 


12 
60 


a» 


60 


G3 


23 
20 


26 
20 


20 
26 


2c 


26 


1156 
11606 
1176 
1386 
1196 
1208 
1216 
1228 
1230 
1249 
1250 
1263 
1276 
1286 
1290 
13309 
41310 
1320 
1330 
1349 
1354 
41360 
1376 
1389 
1399 
1439 
1413 
2420 
1434 
1446 
1450 
1469 
2476 
2486 
1496 
4560 
1513 
$3529 
1533 
13406 
1559 
1566 
ao70 
1586 
1599 
1600 
1610 
4629 
1630 
1646 
1653 
1660 
1670 
1633 
1699 
1739 
2730 


LABEL OPCD OPERAND 
CJ EQU 57 

€ 

* DEPINE FEATURE LABELS 
® 

VOWEL EQU 80H 
CONS EQU 40H 
FRONT EQU 208 
DIPHTH EQU 108 
*wDBND EQU «4 

PHBND EQU 2 
IGNORE equ oil 

STOP EQU 80H 
VOICE EQU 40H 
PLOS EQU 20H 
PLOSA EQU 108 
PRIC EQU 8 
LIQUID EQU 4 
NASAL EQU 2 
DENTAL EQU) soi 


® 
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* DEFINE INPUT STRING TERMINATOR 


® 

TERM - EQU 
® 

reaneetent 

Pa 


* CSRi MAIN LOOP 


® 


CSRi PUSH 
PUSH 
CALL 
JNZ 
NOP 
NOP 
NOP 
CALL 
JINZ 
NOP 
NOP 
NOP 
CALL 
JNZ 
NOP 
NOP 
NOP 
CALL 
NOP 
NOP 
NOP 
CALL 

CSERR POP 
POP 
RET 


® 
* 
R#eaeereantren 
® 


76 


ODH 


B 
D 
PARSE 
CSERR 


RULES 
CSERR 


GENFO 
CSERR 


GEN PRM 


PLAY 
D 
B 


SAVE BC,DE 


PARSE INPUT & SET UP MATRIX 
RETURN IP ERROR 


APPLY RULES TO MATRIX 
RETURN IF ERROR 


GENERATE F9 PARAMETER 
RETURN IF ERROR 


GENERATE OTHER PARAMETERS 


PLAYBACK TO SYNTHESIZER 








ADDR 


2063 
2063 
2063 
2063 
2063 
2066 
2069 
206C 
206D 


2070 - 


2072 
2075 
2077 
207A 
207D 
207F 
2081 
2084 
2087 
2088 
2089 
208C 
208D 
208E 
208F 
2092 
2093 
2096 
2097 
209A 
2098 
209E 
20A0 
20A3 
20A6 
20A6 
20A9 
20AA 
20AB 
20AE 
20B1 
2082 
20B3 
20B4 
20B7 
20BA 
20BC 
_ 20BD 
20BE 
20BF 
20C0 
20C1 
20C 2 
26C3 
20C4 
20C7 
20CA 


Bi 


B2 


Ea 
04 
00 


EZ 
04 
TA 


7A 
BD 
OD 
00 
E2 
3F 


EO 


A6 
CD 
18 
33 
co 
20 
oF 


Bi 


E2 
BD 
Bi 


B3 E LINE 


36 
35 
a5 
36 
22 


Zc 


36 
24 


36 


20 
20 
as 
21 


Zi 
21 


rp 


21 
24 


20 
36 


36 


20 


1720 
1730 
1740 
py = 8) 
1760 
pe eg 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1920 
4929 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
20190 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
20990 
2200 
2140 
2220 
2130 
2140 
2.50 
2160 
2179 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2279 
2280 


LABEL OPCD 


* PARSE CODE 


RRRAKRRHRERE 
® 


PARSE SHLD 
LAI 
SHLD 


STA 
MVI 
CALL 
MVI 
CALL 
PARSA CALL 
PARSB Crt 
MVI 
STA 


MOV 
MOV 
SHLD 
MOV 
MOV 


VOWELA CALL 


GETDIG MOV 


OPERAND 


INPTR 
H,MATRIX 
MATPTR 

A 

NUM 
A,CTERM 
MATSET 
A,CPAUSE 
MATSET 
GET 

TERM 

A,a 

NUM 
PINUP 
H,A 

L,A 

PHON 

C,A 

A,D 


VOW ELA 
CONSB 
CONSA 


COMMT 
OCOH 

PLKPA 
ERROR 


PUSHP 
A,D 


ERROR 
PUSHP 
A,D 


LKPNG 
CHAR 
a Oa 
B,A 
eC 


OProrr YS 


C,A 
NUM 
GET 
GETDIG 


(7 


t 


» 


® 


® 


* 2 + ® 
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SAVE INPUT TEXT POINTER 
INITIALIZE PHONEME MATRIX 
FRONT MATRIX TERMINATOR 
NO ERROR TEST NEEDED 

SET UP INITIAL PAUSE 


END OF INPUT? 
DON'T WIPE THE Z FLAG 


END, CLOSE THE MATRIX 
CLEAR PHON, 

& C FOR HH COUNTER 

GET PARSER FLAGS INTO A 
VOWEL CLASS A 

CONSONANT CLASS 8 
CONSONANT CZASS A 


COMMENT DELIMITER 


SINGLE CHAR SYMBOL 
BAD INPUT 


PUSH VOWEL CHAR A, GET CHAR B 
IF NOT VOWEL 8, IT'S AN ERROR 


PUSH CHAR B, GET NEAT 
SEE IF VOWEL IS FOLLOWED BY INT 


NOT A DIGIT, LOOKUP THE VOWEL 
ACCUMULATE STRESS VALUE IN C 


SAVE NEW DIGIT IN 8 


10 TIMES PREVIOUS VALUE 
PLUS NEW DIGIT 

INTO © 

AND INTO NUM 


& SEE IF THERE'S ANOTHER DIGIT 





ADDR 


20CD 
20CD 
29D9 
290D2 
29D5 
20D? 
20DA 
29DD 
20DE 
20Ei 
20E4 
205? 
20E7 
20E8 
20E3 
20ED 
20F0 
20F 3 
20F5 
20r8 
20F3 
20FE 
21099 
2403 
2106 
2107 
2108 
2109 
216C 
2iL0E 
2112 
24114 
Zac 
2118 
2118 
211B 
2220 
2120 
2123 
2126 
2129 
2i2€ 
2i2F 
214350 
2233 
2133 
2136 
2233 
Pe 
223€ 
2i3F 
225) 
2240 
2143 
2145 
2148 
2149 


cs 


AF 
32 
3E 
CD 
co 
JE 


BD 


10 


7A 


E2 
G2 


+ 


04 


B3 E LINE 
2296 
21 23989 
25.8 
20 2320 
2339 
21 2348 
22 2359 
2369 
36 2370 
2s 2389 
20 2398 
2439 
2410 
22 2429 
2438 
22 2440 
22 2458 
2469 
290 2470 
36 2480 
36 2490 
25090 
36 2310 
22 2520 
2539 
2549 
2350 
20 2560 
25130 
36 2589 
36 Z590 
26098 
Za 2619 
2629 
2h 2639 
2640 
21 2659 
36 2669 
36 2679 
36 2630 
36 2690 
22 2709 
21,0 
20 2720 
2730 
2i 2749 
Zi 50 
2769 
2. 2779 
290 2780 
2790 
2809 
36 2819 
2829 
22 2830 
2840 
2859 


LABEL 


CONSB 


LKPNG 


PARSBG 


INCRH 


GETH 


LKPH 


CONSA 


PLKPA 


COMMT 


ESNOUP 


STA 
DCR 
JMP 


CALL 
CPt 
JNZ2 
LDA 
STA 
LDA 
STA 
CALL 


JMP 


ves 


OPERAND 


PUSHP 
'yy 
GETH 

> a 
PLKPA 
LOOKUP 
x 


CHAR 
GETFLG 
PARSB 


C 

GET 

ee (i 
LKPH 
GET 

'H I 
INC RH 
PHON+L 
PHON 
A; H 
PHON+1 
LOOKUP 


A,C 

A 
PARSBG 
Aeon 
PHON 
PHON +1 
Be 

LKPH 


PUSHP 
tH! 
ERROR 
PHON+1 
PHON 
CHAR 
PHON+1 
LOOKUP 


PARSA 


GET 
A,D 
i0H 
COMMT 
PARSA 


A 
NOM 


A,CPAUSE 


MATSET 


A,CTERM 


x 


* 


* 
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PUSH CONS CHAR, GET NEXT 

tS IT FOLLOWED BY AN "H"? 
YES 

IS IT FOLLOWED BY AN ‘Xx’ 
T5507, PUSH & GOOK IT “Up 

NO, LOOKUP, DON'T GET AGAIN 
RETORN IF ERROR 


GET CHAR FLAGS INTO D AGAIN 


INCREMENT THE "HH" COUNTER 


CHAR IS NOT H, LOOKUP LAST HH 


WE HAVE ANOTHER 'H' 


END OF THE STRING OF °H'S 
PUSH AN 'H' INTO PHON 
LOOK IT UP 


ALL #8”a'S DONE, CHAR IS NEXT 


FORCE PHON TO ‘HH' 
AND LOOK IT OP 
PUSH CONS CHAR, GET NEXT 


CLASS A CONS MUST HAVE 
PUSH IT INTO PHON 


“H’ NEXT 


LOOK IT UP 
GET NEXT INPOT 


GET ANOTHER CHAR 


IGNORE ALL ONTILO NEXT CMMT DELI 


PUT FINAL PAUSE IN MATRIX 





ADDR 


214B 
214E 
214F 
Pape: 
2253 
2154 
2255 
2156 
2157 
2158 
2159 
215A 
2150 
215E 
215F 
2158 
215F 
219° 
£162 
2165 
2168 
216B 
216D 
2139 
2174 
Zit eZ 
2173 
2174 
2179 
2178 
2173 
217E 
2181 
2184 
2187 
218A 
218D 
218F 
2190 
2192 
2195 
2197 
2198 
2198 
2199 
219A 
219B 
219C 
Z219D 
219E 
Zi 9F 
219P 
21A2 
21A5 
21A8 
Z21AA 
21AB 


Bi 


CD 
cq 
2A 


= 


2FP 


7D 
2F 
6F 
ZS 
Zs 
22 
AP 
cs 


21 
a2 
CD 
C2 
36 
ol 
1A 
47 


3 
> 


1A 
BO 
CA 
id 
CD 


21 
CD 
CD 
CD 
36 
23 
36 
ai 
F6 
C3 


1A 
a3 
B? 
C8 
a 
23 
cs 


49 
35 
45 
4F 
00 
20 


B2 
7A 


a0 


Q2 


80 
SE 
98 
65 
QD 
Ei 


92 
AB 
98 
7B 
EQ 
98 
98 
98 
Ze 


OD 


80 
EP 


4E 
54 


52 
41 


B3 E LINE LABEL 


Ze 
35 


35 


Fpl 
ripe 
rapt 
rip 
36 
Fay 
21 
ya 


36 


50 
20 
2 3 


54 


2860 
2870 
2880 
2890 
2909 
2910 
2920 
2939 
2940 
2950 
2960 
2970 
2980 
2990 
3090 
3010 
3020 
3030 
3949 
3050 
3069 
3070 
3080 
3090 
3100 
44 
3120 
s320 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3219 
3220 
3230 
3240 
3250 
3260 
3279 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3379 


3380 
3390 


* 


OPCD 


CALL 
RNZ 
LHLD 
MOV 
CMA 
MOV 
MOV 
CMA 
MOV 
INX 
INX 
SHLD 
XRA 
RET 


* SYNTAX ERROR 


* 


ERROR 


NZRET 


MOVCH 


* 


ERTX1L 


ERTX2 


LAL 
LAL 
CALL 
JNZ 
MVI 
LAL 
LDA X 
MOV 
DCX 
LDAX 
ORA 
JZ 
LAL 
CALL 
JNZ 
LAL 
CALL 
CALL 
CALL 
MVI 
INX 
MVI 
LXI 
ORI 
RET 


LDAX 
INX 


DB 
DT 


OPERAND 
MATSET 


MATPTR 
A, 


H,A 
A,L 


G,A 

H 

H 
NEGEND 
A 
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TERMINATE MATRIX 


* -ADDRESS OF TERM PEON 


MESSAGE RETURN 


H,DUR 
D,ERTXL 
MOVCH 
$-3 
M,ODH 

D, PHON+1 
D 

B,A 


DOU 


NZRET 
D,ERTX2 
MOVCH 
o-3 

D, PHON 
MOVCH 
MOVCH 
MOVCH 
Pa 


M,0DH 
a,D5UR 
2355 


* 


* 


* 
2 


USE DURATION ARRAY FOR MSG 
MOVE 1ST PART OP MSG 


TERMINATE IT 
SEe IF ANYTHING IN PEON 


NO, SET NON-0 & RETURN 
YES, ADD MORE TO MSG 


MOVE NON-0 PARTS OP PEON & CHA 


TERMINATE THE MSG 


‘INPUT ERROR‘ 


Q 
t AT g1 


fas, 





ADDR 


2iA2 
2330 
2ipi 
2281 
4a 
2.82 
213i 
218i 
2134 
2137 
2i3A 
24BD 
218D 
2icd 
2262 
2163 
2iC6 
2iC? 
ZiCA 
2iCa 
Z1CE 
ZiCE 
ZiCr 
Zid2z 
21iD4 
2205 
21D6 
2107 
21D8 
2iD9 
2aC0A 
23 
2ibo 
ziza 
Zizi 
2iE2 
2153 
1E4 
2165 
2156 
2a 
2157 
2157 
2257 
2228 
2129 
2iEA 
21E3 
2iEc 
ZED 
Zi EE 


I-nen 


2ace 
2iPd 
Fae <p | 
21F2 
21F3 
2if4 


Bi 


20 
Ga 


3A 
a2 
3A 
32 


.E 
E6 
32 
23 
<2 


€3 


4p 
E6 
2i 
16 
19 
46 
a9 


we 
= 


av 
E6 
=) 
rapt 
193 


Le 


— 


AQ 
79 
Ci 
cg 


B2 
22 


Ei 
EQ 
DP 
Ei 
E3 


7P 
DP 


£3 


93 


37 


B3-£ LINE 


36 
36 
35 
36 


36 


36 


36 


Zn 


22 


3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
34380 
3490 
3300 
3510 
3520 
3539 
3540 
3550 
3569 
J57¢0 
3580 
3596 
3600 


3610- 


3620 
3630 
3640 
3639 
3660 
3679 
3680 
3699 
3700 
3710 
3720 
3730 
3740 
3736 
3760 
3770 
3780 
3790 
3800 
3819 
38239 
3630 
3840 
3850 
386 
3870 
3880 
3890 
3990 
3910 
3920 
4930 
3946 
S75 


eetvwerrrnt 


us 


DB 
DB 
DB 
DB 
DB 
DB 
DB 
DS 
DB 


OPCD OPERAND 


DB 3 
SUBROUTINES 

LDA PHON+1 

STA PHON 

LDA CHAR 

STA PHON+4 

LHLD INPTR 

MOV A,M 

ANI 7FH 

STA CHAR 

INX H 

SHLD INPTR 

PUSH 8B 

MOV CoA 

ANI LPH 

MOV E,A 

OXI H, PARPIA 

MVI1 D,0 

DAD D 

MOV 3,M 

MOV a 

RLC 

RLC 

RLC 

ANI . 3 

MOV E,A 

GxkIi H, CHMASK 

DAD D 

MOV A,M 

ANA B 

MOV D,A 

MOV A.C 

POP B 

RET 


PARSER PLAGS TABLE 


04H 
81H 
O8H 
20H 
40H 
81H 
08H 
40H 
21H 
814 
3GH 
45H 
43H 
3DH 


*t*eeeee ee & * 2 Oe 
SKTroemoarrrtonyaonw > wp 


~~ = =» i i, ie -*~ 


30 


+ «OM wit ae OM 


{ id 
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GET NEXT INPUT CHAR 
SAVE IT 

AND BUMP INPUT POINTER 
KEEP CHAR IN C FOR NOW 
KEEP 5 LS BITS 

ADDR OP FLAGS TABLE 


GET FLAGS WORD IN 8 
GET WHOLE CHAR BACK 


KEEP CHAR BITS 5,6 IN A G,41 
OFFSET TO “ASK TABLE 
GET MASK 2i7S IN A 


RETURN FLAGS IN D 
RETURN CHAF IN A 


" 
id 
O 
a 





ADDR 


21F5 
21F6 
2iF7 
21F8 
21F9 
2iFA 
2ZiFB 
Zi 5G 
21iFD 
21FE 
21FF 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2207 
2207 
2207 
2208 
2209 
220A 
220B 
220B 
220B 
220B 
2208 
220C 
220F 
2210 
2211) 
2214 
2215 
2216 
2217 
2219 
221C 
2210 
Z21E 
22iF 
2222 
2223 
2224 
2227 
2228 
2229 
2226 
222D 
2230 
2230 
2232 
2233 
2234 
2236 


* 


Bi B2 33 E LING 


45 
85 
0A 
JA 
43 
42 
42 
83 
OA 
43 
03 
43 
44 
04 
a0 
a0 
ao 
04 


a0 
16 
EQ 
aa 


Cs 


7D 
B?7 
CA 
6C 
67 
EB 
OE 
Zt 
BC 
23 
Ce 
whe 
BE 
CA 
Zo 
OD 
C2 
Ci 
Cs 


JE 
85 
OF 
FE 
CA 


EQ 


iG. 


30 


ic 


SF 


3A 


iD 
50 


22 


Ze 


22 
22 


22 


3969 
2970 
2380 
399G 
4000 
4910 
4g2c 
4120 
4040 
4250 
4066 
4070 
40B0 
4090 
4100 
411¢c 
4120 
4139 
4149 
4150 
4169 
4170 
4180 
4199 
42990 
4210 
4229 
4230 
424C 
4250 
4260 
4270 
4282 
4299 
4303 
4310 
4329 
4330 
4340 
4350 
4360 
4379 
4380 
4399 
4499 
4410 
4420 
4430 
4440 
4450 
4460 
4479 
4489 
4490 
4509 
4510 
4520 


nABEL 


* 


OPCD OPERAND 


45H 
85H 
OAH 
OAR 
43H 
428 
42H 
83H 
QAH 


sa 
Lo) 
x 

a 


Q4H 


danuwsonvWwo.z 
sey yee es % 2 2 2 F BW BY BW 


= 


™ 


~~ WOM nb WN Oss 


ee 


e 
? 
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BACK SLASH, < 


le 


UP ARROW, > 
LEFT ARROW, 


* PARSER FLAGS BIT MASKS 


* 
CHMASRK 


® 
* 
* 
* 


LOOKUP 


NCBP 


CHECK 


PAIBAD 


MATCH 


DB 
DB 
DB 
DB 


0 * CONTROL CHA>, CLEAR FLAGS 

16H * PUNCTUATION, USE BITS 4,2,3 
QE9H * YPPER CASE, USE SITS 7,6,=; 3,0 
a * L@éwER CASE, CLEAR FLAGS 


LOOKUP SUBROUTINE 


* 


2ND HALF OF PHON INTO ~ 
& 1ST HALF IN A & L 


IF ist 1/2 =0, MAKE IT THE 2ND 
INTERCHANGE 2 5 L 
NON 3 PART IN D, 2ND 2/2 IN E 


SEARCH VALID. TABLE FOR (PHON) 


AST 1/2 FOUND. TRY 2ND 1/2 


NOT THIS ONE 


(PHON) NOT IN VALID. TABLE 


A, -~PVTAB-13256 * (=PVT2B-1)MOD 256 
L 


PUSH 8B 
LHLD PHCN 
MOV A,u 
ORA A 

JZ NCHP 
MOV LH 
MOV HraA 
XCHG * 

MVI C.64 
LXI i, 2VTAB 
MOV A,D 
CMP M 

INX H 

JNZ PIBAD 
MOV A,= 
CMP M 

JZ MATCH 
INX H 

DCR c 

JINZ CHECK 
PO? B 

JMP ERROR 
MVI 

ADD 

RRC 

cel CEL 
JZ INSAXL 


81 


* 
* 


CHECK NOW FOR DUMMY CODES 
EL BECOMES AX,L 





ADDR 


2239 
2238 
223E 
2246 
2243 
2245 
2248 
224A 
224D 
2250 
e254 
2252 
2255 
2257 
225A 
22=C 
225E 
2261 
2263 
2265 
2268 
226A 
226C 
226P 
220i 
2274 
2215 
2278 
2279 
227A 
227A 
227A 
227D 
2280 
2281 
2234 
2285 
2288 
22389 
223aC 
228D 
222E 
2299 
229% 
2294 
2235 
2298 
2299 
229A 
229A 
229D 
229F 
22A9 
22A0 
22A3 
22A6 
22A9 


B2 


aE 
ae 
3A 
38 
61 
49 
68 
75 


24 
SC 
24 
3c 
25 
OP 
6c 
28 
33 
6C 
2c 
37 
TA 
aq 
EZ 


30 
9C 


9A 
AC 


E2 


ete 
40 


Ada 
FF 


4i 
49 
46 
4c 


Bj 


22 
ee 
22 
22 
Ze 
22 
22 


22 


22 


22 
36 


22 


35 
CA 


22 
Ze 
36 


35 
35 


ee 


54 
58 
55 


E LINE 


4530 
4540 
4550 
4560 
4570 
4580 
4590 
4690 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4779 

780 
4799 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
49id 
4920 
4930 
4940 
4950 
496) 
4970 
4980 
4990 
5000 
50190 
5020 
3030 
5040 
5050 
5060 


LABEL 


* 


INSAXL 
INSAXM 


INSA&AN 
INS1i 


INSTSH 


INSD24H 


INS2 


PUTMAT 


MATSET 


MATERR 


MERTX 


OPCD 
CPI 


CPI 
JZ 
CPI 


CPI 
JZ 
JMP 


MVI 
JMP 


JMP 
MVI 
MVI 
JMP 


MVI 
JMP 


MVI 
CALL 
MVI 
STA 
MOV 
CALL 
POP 
RET 


LHLUD 
LXI 
DAD 


PUSH 


CALL 


DAD 
LDA 
MOV 
DAD 
MVI 
POP 
LHLD 
INX 
SHLD 
XRA 
RET 


LAI 
ORI 
RET 


DT 


PAGE 09: 
OPERAND 


CEM 
INSAXM ° 
CEN 
INSAXN * 
CCH 
INSTSH ™ 
CJH 
INSDZ4H . 
PUTMAT * 


EM BECOMES AX,M 


EN BECOMES AX,N 


CH BECOMES T,SH 
JH BECOMES D,2Z4H 
ELSE PUT IT IN THE MATRIX 


8,CL 
INSi 
B,CM 
INSi 
B,CN 
A,CAX 
INS2 
A,CT 
B,CSH 
INS2 
A,CD 
B,CZH 
MATSET 
Ao 
NUM 
A,B 
MATSET 
B 


* PUT iST PHON IN MATRIX 
* CLEAR STRESS VALUE FOR 2ND PHO 


* AND PUT IT IN MATRIX 


MATPTR * TEST COLUMN POINTER 
D,-MATRI X-MATLEN-1i 


D 

MATERR * MATRIX OVERPLOW 

B * SAVE B 

MATPAK * PUT NEW CODE INTO MATRIX 
B 

NUM 

M,A * GET STRESS VALUE FROM NUM 
B 

M,Q * DURATION VALUES 

B * RESTORE 8B 

MATPTR 

H 

MATPTR * BUMP THE COLUMN PTR 

A * SET ZERO CONDITION 
H,MERTX 

235 


‘MATRIX FULL’ 


82 








ADDR 


22AB 
22AC 
22AC 
22AC 
22AC 
22AC 
22AF 
22B0 
22B4 
22B2 
22B3 
22B5 
22B8 
22B9 
22BA 
22BD 
22BE 
22BP 
22C0 
22C4 
22C2 
£263 
22C4 
22C5 
22C5 
z2C5 
22C5 
z205 
22C5 
22C6 
220% 
22C8 
22C9 
22CA 
22CB 
22CC 
22CD 
22CE 
Z2CP 
22D4 
22D3 
22D5 
22D? 
22D9 
22DB 
22DD 
22DF 
22E1 
22E3 
22E5 
22E? 
22E9 
22EB 
22ED 
22EP 
22Pi 
22F3 


Ba 


QD 


TT 
EB 
07 
4P 
06 
24 
09 
EB 
O4 
09 
1A 
77 
43 
1A 


ni, 
C9 


70 
uO 
2E 
00 
2C 
00 
3F 
00 
23 
00 
49 
49 
45 
41 
44 
44 
4i 
4F 
55 
55 
41 
49 
45 
55 
4P 
41 
4i 
4FP 
45 


B2 


00 


00 
3D 


5F 


B3 E LINE 


35 


23 


00 


5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
535d 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
55290 
5530 
5540 
9550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 


LABEL 


* &*# & & 


MAT PAK 


# 
RRRkkhe 
® 


* PHONEME 
a 


PVTAB 


OPCD OPERAND 


DB ODH 


MATPAK SUBROUTINE 


LHLD MATPTR 
MOV M,A ° 
XCHG 
RLC 
MOV 
MVI 
LAI 
DAD 
XCHG 
LAI 
DAD 
LDAX 
MOV 
INX 
LDAX 
DAD 
MOV 
RET 


. = 
yo, 
* 


EATAB 


x 4 
> 
Ve 
t 
a3 
Z 


zsDQoozoOWO eran 
> 
& * 


> 
* 


VALIDATION TABLE 


DB i] i] 
DB 0 

DB ee 
DB 0 

DB a. 
DB 0 

DB er a 
DB 0 

DB ‘3! 
DB 0 

DT oO oy 
DT ‘IH ' 
DT "EH’ 
DT "AE' 
DT "AAS 
DT "AH! 
DT *AQ' 
DT ‘Ow ' 
DT ‘UH ' 
DT ‘Uw! 
DT ‘AX’ 
DT 1x." 
DT ‘ER’ 
DT ‘OX! 
DT ‘OH ‘ 
DT ‘AW’ 
DT ‘AY’ 
DT seh Ge 
DT "EY ' 
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PUT CODE IN ROW 2 


CODE*2 INTO BC 


PEATURE ADDR IN DE 
BUMP HL TO FEATA ROW 


MOVE iST FEATURE WORD T MATRIX 


MOVE 2ND FEATURE WORD TO MATRIX 








2333 
Za3¢ 
2339 
2335 
2335C 
2430 
233D 
2330 
233D 


B2 B3 E LINE 


58 
58 


58 


48 


48 


48 


48 
48 
48 
48 


5640 
56590 
5660 
5670 
$6380 
5690 
5.700 
opie as) 
a2 
ae30 
5740 
5750 
5764 
5779 
5780 
5790 
5800 
5810 
58290 
3839 
5840 
5850 
3860 
3870 
5839 
58990 
3900 
J2a0 
5929 
op ks (2 
5949 
3900 
5960 
e975 
$980 
3999 
6999 
6919 
6929 
6030 
6040 


2 £# © © 


LABEL 


PAGE 12 
OPCD OPERAND 


DT 59. a 
DT yer? Ge 
oT "WX! 
DT Tx. 
DT ‘WH 
DT a 
DT ey 
DT es 
DB 5 

DB 0 

DB ela 

DB 0 

DB ‘wi 

DB 0 

DB i 

DB 0 

DB a 

DB 0 

DB 'N' 

DB 0 

DT "NX! 
DB ‘p' 

DB 0 

DB ie a 

DB 0 

DB ss 

DB 0 

DT "KX* 
DB ‘B' 

DB 0 

DB oe 

DB 0 

DB “Ce 

DB 0 

DT "GX! 
DT *DA* 
DB a 

DB 0 

OT 'TH* 
DB “3 

DB 0 

DT on 
DB a is 

DB 0 

DT ‘DH’ 
DB a 

DB 0 

Dr ron 
DT Ce 
DT JH" 
DT "HH" 
DB 6 

DB 0 


FEATURE DEPINITION TABLE 


ee 
LL AAO A, a AE ES SERCO, AAS 
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ADDR Bi B2 B3 E LINE LABEL OPCD OPERAND 

233D Q5 6210 FEATAB DB WDBND+IGNORE * SPACE 

233E£ 00 6220 DB Q 

233F Q3 6230 DB PHBND+IGNORE * PERIOD 
- 2340 QQ 6240 DB Q 

2341 Q2 6250 DB PHBND * COMMA 

2342 QQ 6260 DB Q 

2343 Q3 6270 DB PHBND+IGNORE * QUESTION 

2344 00 6280 DB Q 

2345 Q3 6290 DB PHBND+IGNORE * TERMINATOR 

2346 QQ 6300 DB Q 

2347 AQ 6310 DB VOWEL+FP RONT ~ IY 

2348 40 6320 DB VOICE 

2349 AQ 6330 DB VOWEL+FRONT 15 

234A 40 6340 DB VOICE 

234B AQ 6350 DB VOWEL+FRONT * ER 

234c 40 6360 DB VOICE 

234D AQ 6370 DB VOWEL+FRONT * AE 

234E 40 6380 DB VOICE 

234F AQ 6390 DB VOWEL+FPRONT * AA 

2350 40 6400 DB VOICE 

2351 AQ 6410 DB VOWEL+P RONT * AH 

2352 40 6420 DB VOICE 

2355 80 6430 DB VOWEL * AO 

2354 40 6440 DB VOICE 

2355-90 6450 DB VOWEL+DIPHTH * OW 

2356 40 6460 DB VOICE 

2357 80 6470 DB VOWEL * U8 

2358 40 6480 DB VOICE 

2359 90 6490 DB VOWEL+DIPHTH * UW 

235A 40 6500 DB VOICE 

235B 80 6510 DB VOWEL * AX 

235C¢ 40 6520 DB VOICE 

235D 80 6530 DB VOWEL dies 4 

235E 40 6540 DB VOICE . 

235F 80 6550 DB VOWEL *- ER 

2360 40 6560 DB VOICE 

2361 80 6570 DB VOWEL * UX 

2362 40 6580 DB VOICE 

2363 80 6590 DB VOWEL * On 

2364 40 6600 DB VOICE 

2365 90 ' 6610 DB VOWEL+DIPHTH * AW 

2366 40 6620 DB VOICE 

2367 BQ 6630 DB VOWEL+FRONT+DIPHTH * AY 

2368 40 6640 DB VOICE 

2369 380 6650 DB VOWEL+PRONT+DIPBTE * OY 

236A 40 6660 DB VOICE 

236B BO 6670 DB VOWEL+FPRONT+DIPHTH * EY 

236C 40 6680 D3 VOICE 

236D 80 6690 DB VOWEL * RX 

236E 40 6700 DB VOLGE 

236F 80 6710 DB VOWEL * LA 

2370 40 67290 DB VOICE 

237. 80 6730 DB VOWEL * WS 

2372 40 6740 DB VOICE 

2373 80 6750 DB VOWEL fe & 

2374 40 6760 DB VOICE 

2375 40 6770 DB CONS * WH 
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ADDR Bi B82 B3 E LINE LABEL OPCD OPERAND 
2376 40 6780 DB VOICE 
2377 O90 6790 DB 0 * EL 
2378 30 6800 DB 0 
2379 QO 6819 DB 0 * EM 
237A O20 6820 DB 0 
3 2378 390 6830 DB 0 * EN 
237C O90 6840 DB 0 
237D 40 6859 DB CONS * R 
237E 44 6860 DB VOICE+LIQUID 
237F 40 6870 DB CONS * ft 
2380 44 6880 DB VOICE+LIQUID 
2381 40 68990 DB CONS * W 
2382 44 6909 DB VOICE+LIQUID 
2483 +40 6910 DB CONS - ¥ 
2384 49 6920 DB VOICE 
2385 40 6330 DB CONS « M 
2386 €2 6949 DB STOP+VOICE+NASAL 
2387 40 6950 DB CONS * N 
2388 C3 6969 DB STOP+VOICE+NASAL+DENTAL 
2389 40 6970 DB CONS * NX 
238A: °C2 6980 DB STOP+VOICE+NASAL 
238B 40 6999 DB CONS x Pp 
238Cc 30 70300 DB STOP+PLOS+PLOSA 
238D 49 7019 DB CONS i % 
238E Bi 7029 DB STOP +PLOS +#PLOSA+DENTAL 
238F 49 7030 DB CONS * K 
23990 BO 7049 DB STOP+PLOS+PLOSA 
2391 40 7050 DB CONS * KX 
2392 BO 7060 DB STOP+PLOS+PLOSA 
2393 40 7070 DB CONS * B 
2394 EO 7080 DB STOP +PLOS+VOICE 
2395 493 7390 DB CONS * D 
2396 Ed 7100 . DB STOP+PLOS +VOICE+DENTAL 
2397 40 TiO DB CONS * G 
2398 EO 7120 DB STOP+PLOS+VOICE 
2399 40 7130 DB CONS * GX 
239A EO 7140 DB STOP+PLOS+VOICE 
239B 40 A250 DB CONS * DX 
239C 81 7200 DB STOP+DENTAL 
239D 40 clea | DB CONS * F 
239E 08 7189 DB FRIC 
239F 30 7190 DB CONS * TH 
23A0 99 7200 DB FRIC+DENTAL 
23Ai 40 7219 DB CONS * S 
23A2 99 7220 DB FRIC+DENTAL 
23A3 40 7230 DB CONS * SH 
23A4 8 7249 DB FRIC 
23A5 40 Tee DB CONS eV 
23A6 48 7260 DB FRIC+VOICE 
2347 40 7200 DB CONS * DH 
23A8 49 72890 DB FRIC+VOICE+DENTAL 
23A9 409 7290 DB CONS « 2 
23AA 49 7300 DB PRIC+VOICE+DENTAL 
| 23AB 40 7310 DB CONS * 7H 
23AC 48 7320 DB FRIC+VOICE 
23AD 00 7330 DB 0 * CH 
Z23AE 00 7349 DB 0 
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ADDR Bi B2 B3 E LINE LABEL OPCD OPERAND 

23AF Q0 TA28 DB Q * J5 
23B0 00 7360 DB 3 

23B1 40 7370 DB CONS * HH 
23B2 00 7380 DB Q 

23B3 40 7399 DB CONS * Q 
23B4 CO 7400 DB STOP+VOICE 
23B5 7410 * 

2385 7420 * END OF SECT1 
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ADDR Bl B82 B3 E LINE LABEL OPCD OPERAND 
2009 0010 * RULES, GROUPS 1 AND 2 
2000 0020 * 
2000 9030 * SEATION 2 OF THE CSR1 SYNTHESIS BY RULE SYSTEM 
2000 g040 * 
2000 0059 * ‘LLOYD RICE, COMPUTALKER CONSULTANTS 
2000 0060 * VERSION 1.07 MAY 30, 1977 
2000 0070 * 
20300 00890 RRARRARKREARE 
2000 0090 * 
2000 0100 * COMMON JUMP ADDRESS TABLE 
2090 0110 * THIS TABLE ALLOWS REASSEMBLING ANY SECTION 
2000 0120 * WITHOUT CHANGING REFERENCES IN OTHER SECTIONS 
' 2000 0130 * 
2039 0140 et taeaeeane 
2000 0150 * 
2000 0160 COMJMP ECU SS 
2090 O:70 * 
2600 0180 CSR1 DS 3 
2903 0190 PLAY DS 3 
2006 0200 BUFADR DS 2 
2008 0210 BUFEND DS 2 
200A Q22G PVTAB DS 2 
200C 0230 MATPAK DS 3 
200F 0240 MATERR DS 3 
2012-£3 €0 23 8250 JMP RULES 
2015 0260 SETDUR DS 3 
2018 0270 RULES3 DS 3 
2018 0289 GENFO DS 3 
201E 0290 CLRBUP DS 3 
20214 0300 GENPRM DS 3 
2024 0310 DUMMY DS 22 
203A 9320 * 
203A 93390 *eeantaennnn 
203A 0340 * 
203A 0350 * COMRAM ORIGEN DEFINITION 
293A 0360 * 
203A 9370 ORG COMJMP+15008 
3506 0380 COMRAM EQU S$ 
35:99 0390 * 
3590 0490 * CSR1 SYSTEM RAM SPACE DEFINITION 
3500 0419 * ; 
3599 0420 MATPTR DS 2 
3592 0430 NEGEND DS 2 
3594 0440 MATRIX EQU = $ 
3504 0450 MATLEN ECU 95 
3504 0460 PHCODE DS MATLEN 
3563 0470 FEATA DS MATLEN 
3502 0480 PEATB DS MATLEN 
362] 0490 STRES DS MATLEN 
3689 05009 DUR DS MATLEN 
36DF 0510 MATEND EQU) = $ 
36DF 0520 * 
36DF 0530 * RULES (LOCAL) RAM WORKSPACE 
36DP 0540 * 
36DF 0550 MOVAD DS 2 
36E1 0560 COUNT DS 1 
36E2 0570 * 


88 








PAGE 02 


ADDR B81 82 83 E LINE LABEL OPCD OPERAND 
36E2 0580 RReRRRERER 

36E2 0590 * 

36E2 0600 * RULES GROUPS 1 AND 2 
36E2 0610 * 

36E 2 0620 ORG COMJMP+3C0H 
23C0 0630 * 

23C0 0640 * PHONEME CQDE DEFINITIONS FOR RULES 
23¢0 0650 * 

23C0 0660 CSPACE ECU 0 
23C0 0670 CTERM EQU) 4 
23C0 0680 CUW EQU) 14 
23C0 0690 CUX EQU) 18 
23C0 0700 CRX EQU 24 
23C0 0710 CLx EQU =_.25 
23c0 9720 CwWxX EQU 26 
23C0 0730 CYx EQU = 27 
23C0 0740 CWH EQU  =_28 
23C0 0750 CR eQu* 32 
23C0 0760 CW ECU 34 
23C0 0770 CL EQU) (33 
23C0 0780 CM EQU 36 
23C0 0790 CN EQU 37 
23C0 0800 CNX EQU 38 
23C0 0810 CP ECU 39 
23C0 ‘ 0820 CT ecu §=—.-« 40 
2300 0830 CK ECU 41 
23C0 0840 CKX ECU = 42 
2300 0850 CB EQU 43 
23c0 0860 CD ECU 44 
23C0 0870 CG EQU) 45 
23C0 0889 CGX EQU 46 
23C0 0890 CDx EQU 47 
23C0 0900 CS ECU 50 
23C0 0910 CSH EQU) ss sS1 
230 0920 C2 EQU) 94 
2300 0930 C2ii ECU 55 
2300 9940 CHH EQU = 58 
23C0 0950 CQ EQU 59 
23C0 0960 * 

23C0 0970 * DEFINE FEATURE LABELS 
23c0 0980 * 

2300 0990 VOWEL EQU 80H 
23C0 i000 CONS EQU 40H 
2300 1010 FRONT EQU 20H 
23C0 1020 DIPHTH EQU 10H 
23C0 1030 WDBND EQU) 4 
23C0 1040 PHBND EQU 2 
2300 1050 IGNORE EQG. lil 
2300 1060 STOP EQU 80H 
23c0 1070 VOICE EQU 4048 
2300 1089 PLOS EQU 208 
230 1090 PLOSA ECU 10K 
23C0 1100 FRIC EQU. 8 
23C9 1110 LIQUID EQU 4 
23C0 1120 NASAL ECU 2 
23C0 1130 DENTAL EQU. 1 
23C0 i140 * 
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ADDR Bl B2 B3 E LINE LABEL OPCD OPERAND 
23€0 1150 * 

23C0 1160 *##eneteenre 

23C0 iit790 * 

230 1180 * RULES CODE 

23C0 1130" * 

2300 1200 *#eeeererene 

2300 52 Ws Si 

23C0 1220 * RULES MAIN 

23€0 1230 * 

-23€0 CO. Da 23 1240 RULES CALL RULES1 * APPLY RULE GROUP 1 
2363, €0 1250 RNZ . * RETURN IP ERROR 
2324 00 1260 NOP 
23c5 00 1270 NOP 
23C6 00 1280 NOP 
2307 CD 78 24 1290 CALL RULES2 * APPLY RULE GROUP 2 
23CA 00 1300 NOP 
23CB 00 1310 NOP 
23CC 09 1320 NOP 
2360 CD 15 20 1330 CALL SETDUR * ASSIGN INITIAL DURATIONS 
23D0 00 1340 NOP 
23D1 00 1350 NOP 
23D2 00 1360 NOP 
2303 CD 18 20 1370 - CALL RULES3 * APPLY RULE GROUP 3 
23D6 AF 1380 XRA A * CLEAR ERROR CONDITION 
2307 C9 1390 RET 
23D8 1409 * 
23D8 1410 * 
23D8 1420 *etwenenee 
23D8 1430 * 
23D8 1440 * RULE GROUP 1 
23D8 1450 * 

2308 21 05 35 1460 RULES] LXI H,MATRIX+1 

23DB8 22 00 35 1470 SHLD MATPTR 

23DE O01 SF 00 1480 LXI B,MATLEN 

23E1 1490 RILOOP EQU $ 

23E1 1800 * 

23E1 1510 * Q <= VOWEL STRESS.GT.0,SPACE//VOWEL STRESS.GT.0 
23E1 520% 

23E1 09 1530 RIA DAD B 

23£2 7E 1540 MOV A,M * GET COL X PFEATA 
23E£3 £6 80 1550 ANI VOWEL 

23E5 CA 1C 24 1560 JZ R18 * NOT A VOWEL 

23E8 09 1570 DAD B 

23E9 09 1580 DAD B 

23EA 7E 1590 MOV A,™ * GET COL X STRESS 
23EB B7 1600 ORA A : 

23EC CA 1c 24 1610 JZ R1B * VOWEL NOT STRESSED 
23EF 2A 00 35 1620 LHLD MATPTR 

2aF 2:28 1639 DCX H 

eae 3 7E 1640 MOV A,™ * GET COL X-1 CODE 
23F4 FE O04 1650 CPI CTERM 

23F6 CA 65 24 1660 JZ ENDR1 * X IS 1ST COLUMN 
23F9 FE 00 1670 CPI CSPACE 

23FB C2 IC 24 1680 JNZ R1B * NOT A WORD BOUNDARY 
23FE 26 1690 DC X H 

23FF TE 1700 MOV A,M * GET COL X-2 CODE 
2400 PE 04 1710 CPI CTERM 
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ADOR B1 82 83 £& LINE LABEL OPCD OPERAND 
2402 CA ic 24 1720 J2 R1p 
2405 09 1730 DAD 8B 
2406 72 ‘ 1740 MOV A,M * GET COL X=-2 PEATA 
2407 E6 80 1750 ANI VOWEL 
2409 CA ic 24 1760 JZ RiB * NOT A VOWEL 
240C 09 1770 DAD 2B 
240D 09 1780 DAD 8B 
240E 7E 1790 MOV A,M * GET COL X=-2 STRESS 
240F B7 1800 QRA A 
2410 CA iC 24 1810 a2 RiB * STRESS MUST BE NON 0 
2413 3£ 3B 1820 MVI A,CO 
2415 CD OA 27 1830 CALL MATNSR * OK, INSERT A GLOT™AL STOP 
2418 CO 1840 RNZ 
2419 C3 65 24 1850 JMP  ENDRi 
241c 1860 * 
24ic 1870 * RX <= VOWEL/R/ 
24lc 1880 * 
24ic 2A 00 35 #£«®£1890 RiB LHLD MATPTR 
241F TE 1900 MOV A,M 
2429 FE 20 1910 CPI CR * TEST POR R 
2422 C2 2A 24 1920 JN2 RIC 
2425 16 i8 1930 MVI D,CRX * CHANGE? TO RX 
2427 ©€3 31 24 1940 JMP RIBC 
242A 1950 * 
242A 1960 * LX <= VOWEL/L/ 
242A 1970 * 
242A FE 21 1980 Ric Cpl. ‘CL * TEST FOR L 
242C C2 46 24 1990 JNZ RID 
242F 16 19 2000 . MVI D,CLX  * CHANGE? TO LX 
2431 2B 2016 R1iBC DCX H 
2432 7E 2020 MOVs A,#H * GET COL X=-1 CODE 
2433 FE 04 2030 CPI CTERM 
2435 CA 65 26 2040 a2 ENDR1 
2438 09 2050 DAD 8B 
2439 7E 2069 MOV A,M * GET COL X-1 PEATA 
243A E6 20 2070 ANI VOWEL 
243C CA 65 24 2080 J2 ENDR1 * NOT A VOWEL 
243F 7A 20906 MOV A,D 
2440 CD OC 20 2100 CALL MATPAK * OK, CHANGE THE CONSONANT 
2443 2A 00 35 2110 LHLD MATPTR 
2446 2120 * 
2446 2130 * YX <= DIPHTH FRONT// 
2446 2140 * WX <= DIPHTH -FRONT// 
2446 2150 * 
2446 28 2160 RID DCX H 
2447 TE 2170 MOV A,M 
2448 FE 04. 2180 CPI CTERM 
244A CA 65 24 2190 J2 ENDR1 
244D 09 2200 DAD B 
244E 72 2210 MOV A,M * GET COL X-1 PEATA 
244F E6 10 2220 ANI DIPHTH 
2451 CA 65 24 2230 JZ ENDRi * NOT A DIPHTHONG 
2454 TE 2240 MOV A,M 
2455 £6 20 2250 ANI FRONT 
2457 CA SP 24 2260 Jz BACK 
: 245A 3E 1B 22706 MVI A,CYX 
245¢ ©3 61 24 2280 JMP  GLIDE 
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ADDR Bi B2 B83 E LINE LABEL OPLD OPERAND 
245F JE 1A 2290 BACK MVI A,CWX 
2461 CD OA 27 2300 GLIDE CALL MATNSR * INSERT GLIDE AFTER DIPHTH 
2464 CO 2340 RNZ 
2465 2320 * 
2465 2330 * END OF RULE GROUP 1 
2405 2340 * 
2465 00 2350 ENDRi NOP beg * BREAKPOINT LOC 
2466 2A 00 35 2360 SHLD MATPTR 
2469 23 2370 INX H 
246A 22 00 35 2380 SHLD MATPTR * STEP POINTER 
246D AF 23990 XRA A * CLEAR ERROR CONDITION 
246E EB 2400 XCHG 
246F 2A 02 35 2410 CHLD NEGEND 
2472 19 2420 DAL D 
2473 D8 2439 RO . * RETURN IF END OP MATRIX 
2474 EB 2449 XC HG 
2475, 43 El 23 2450 JMP R1LLOOP 
2478 2460 * 
2476 2470 ##eennneee 
2478 2480 * 
2478 2490 * RULE GROUP 2 
2478 2590 * 
2478 21 05 35 2510 RULES2 LXxI H,MATRIX+1 
24738 22 00 35 2520 SHLD MATPTR 
247E Ol SF 60 2530 LXxI B,MATCEN 
2481 2540 R2£00P ECU $ 
24814 2550) * 
248i 2560 * STRESSX#l <= /CONS STRESS.GE.O/VOWEL STRESS.NE.0 
248i 2570 * 
2481 09 2580 R2A DAD B 
2482 TE 2590 MOV A, * GET COL X FEATA 
2483 E6 40 2690 ANT CONS 
2485 CA FD 25 2610 JZ R2G * NOT A CONSONANT 
2488 99 2620 DAD B 
2489 09 2630 DAG B 
248A TE 2640 MOV A,M * GET COL X STRESS 
2488 87 2650 ORA A 
2480 FA AA 24 2660 JM R2B * STRESS IS -, DON’T CHANGE IT 
248F 2A 00 35 2670 LILD MATPTR 
2492 23 2680 INX H 
2433 7E 26990 MOV ALM * GET COL x+l1 CODE 
2494 FE 04 2700 CPI CTERA 
2496 CA FD 25 2719 JZ R2G 
2499 99 2720 DAD B 
249A TE 2730 MOV A, * GET COL X+1l FEATA 
249B E6 80 2740 ANT VOWEL 
249D CA AA 24 2750 JZ R2B * NOT A VOWEL 
24A9 99 2760 DAD B 
24Ali 99 2770 DAD B 
24A2 TE 2789 MOV A,& * GET COL X+i STRESS 
24A3 B7 2790 ORA A 
_24A4 CA 7D 25 2800 JZ R2E * VOWEL NOT STRESSED 
24A7 2B 2810 Dr x H 
24A8 36 U1 2820 MVI M,i * OK, SET CONSONANT STRESS # 1 
i 24AA 2830 * 
24AA 2840 * STRESSX,X+l=-l1 <= /S,PLOS -VOICE/VOWEL STRESS.NE.0 
24AA 2850 * 








ADDR 


24AA 
24AD 
24AE 
2489 
24B3 
24B4 
24B5 
2487 
24BA 
2488 
248C 
24BD 
24BF 
24¢1 
2404 
24C7 
2478 
2409 
240A 
24cC¢ 
24CF 
2409 
24D1 
24D3 
24D6 
24D7 
2408 
2409 
24DA 
24DD 
24DE 
24E0 
2421 
24E3 
24E3 
24E3 
24E3 
2463 
24E6 
24E7 
24E8 
24E9 
24EB 
24EE 
24EF 
24F1 
24F3 
24F6 
24F9 
24FA 
24FB 
24FD 
2500 
2501 
2502 
2503 
2505 


B2 
iT) 
32 
E3 


04 
F8 


20 
60 
E3 
99 


94 
F8 


80 
E3 


E3 
of 


FF 


00 


20 
F6 


08 
48 
2A 
00 


04 
42 


06 
2A 


BIE 
35 


24 


26 


24 
35 


26 


24 


24 


35 


24 


Pie 
35 


26 


25 


LINE 


2369 
2370 
2880 
2399 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2979 
2969 
2990 
3900 
3910 
3020 
3030 
3040 
3950 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3229 
3239 
3240 
3250 
3260 
5270 
3280 
3290 
3300 
3340 
3320 
3330 
3349 
3350 
3369 
3379 
3380 
3390 
3400 
3410 
3420 


2 8 8 ® 


R2C 


DCX 
MVI 
Or x 
MVI 


LHLD 
DAD 
DAD 
MOV 
ANT 
JNZ 
MOV 
XRI 
ANI 
JNZ 
LHLD 
INX 
MOV 
Cri 
JZ 
DAD 
DAD 
MOV 
ANI 
Jz 


PAGE 06 
OPERAND 


MATPTR 

AM 

cs 

R2C * GOL X NOT AN S 

H 

AM * GET COL X+l CODE 

CTERM 

ENDR2 * S IN LAST COL, END GROUP 
B 


B 
A,M * GET COL X+l PEATB 

PLOS 

PLOS+VOICE 

R20 * X+1 IS NOT UNVOICED pLosIve 
MATPTR 

H 

H 

AM * GET COL X+2 CODE 

CTERM 

ENDR2: 

B 

A,M * GET COL X+2 FEATA 

VOWEL 

R2C * NOT A VOWEL 

B 

B 

A.M 

A 

R2C * X+2 STRESS MUST BE NON 0 
H 

M,-1 * SET STRESS x+] a-i 

H 

M,-1 * SET STRESS X =-] 


STRESSX,X+l2~-]1 <= /PLOS OR (FRIC ~VOICE),LIQUID 


OR NASAL/VOWEL STRESS.NE.O 


MATPTR 

B 

B 

A, * GET COL X FEATB 

PLOS 

R201 * COL X IS PLOSIVE 

A.M 

PRiIC 

PRIC+VOICE 

R2D * NEITHER PLOS NOR FRIC “VOICE 
MATPTR 

H 

A,M * GET COL x+l CODE 

CTERM 

R2JK 

B 

B 

A,M * GET COL X+l1 FEATB 
LIQUID+NASAL 

R2D * NEITHER LIQUID NOR NASAL 


=e. 


ty Fe ET QR Se he Fee Reser — ee rye oe 





ADDR 


2508 
250B 
250€ 
250D 
250E 
2510 
2513 
2514 
2515 
2517 
251A 
2518 
251¢ 
251D 
251E 
2521 
2522 
2524 
2325 
2527 
252A 
252A 
252A 
252A 
252A 
252D 
29525 
2539 
2533 
2534 
2934 
2537 
253A 
2538 
2536 
253D 
253F 
2541 
2544 
2547 
2548 
2549 
254A 
254¢ 
254P 
2550 
270) 
fnne 
2554 
227 
255A 
2558 
255¢ 
255D 
255E 
2560 
2563 


Bl 


23 
23 
7E 
FE 
CA 
09 
7E 
E6 
CA 
09 
09 
7E 
B? 
CA 
28 
36 
2B 
36 
c3 


B2 


- 00 


04 
42 


80 
42 


42 
er 


EP 
42 


00 


32 
7D 


04 


20 
60 
F8 
00 


04 
F8 


04 
F8 
00 


04 
P8 


B3 £ SINE 


25 


26 


26 


26 


26 


te 


25 


26 


26 
35 


26 


26 
35 


26 


3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3570 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3690 
3610 
3620 
3630 
3640 


3650 ° 


3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
S779 
3780 
3790 
3800 
3810 
3820 
38 30 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
39 39 
3949 
3959 
3960 
3970 
3980 
3990 


LA 


R2C 


¢¢ @¢ @& 


R2D_ 
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BEL OPCD OPERAND 
2 LHLD MATPTR 
INX H 
INX 4 
MOV A,M * GET COL x+2 CODE 
CPI  CTERM 
Jz R20K 
DAD 8B 
MOV A,M * GET COL X+2 FEATA 
ANI VOWEL 
a2 R2JK * NOT A VOWEL 
DAD 8B 
DAD B 
MOV A,M 
ORA A 
JZ R20K * VOWEL X+2 NOT STRESSED 
DCX 4H 
MMVI M,-1 * PUT -1 STRESS IN COL X+l 
DOX 4H 
MVI M,-1 * PUT -1 STRESS IN COL X 
JMP R20K 
STRESSX,X+1,X+2=-1 <= /S,PLOS -VOICE,LIQUID/ 
VOWEL STRESS.NE.O 
LHLD MATPTR 
MOV A.M 
CPI cs 
JNZ  R2E * THIS COL NOT AN S 
INX H 
MOV A,M 
CPI CTERM 
J2 ENDR2 * S IN LAST COL, END GROUP 2 
DAD B 
DAD B 
MOV A,M -* GET COL X+l FEATB 
XRI POS ; 
ANI PLOS+VOICE 
JNZ  ENDR2 * COL X+#1 NOT UNVOICED PLOSIVE 
LHLD MATPTR 
INX H 
INX  H 
MOV A,M * GET COL x+2 CODE 
CPI  CTERM 
JZ ENDR2 * LAST COL, END OF GROUP 
DAD B . 
DAD B 
MOV A.M * GET COL X+2 FEATB 
ANI LIQUID 
Jz ENDR2 * NOT A LIQUID 
LHLD MATPTR 
INX  H 
INX fi 
INX H 
MOV A,M * GET COL X+3 CODE 
CPI CTERM 
Jz ENDR2 
DAD 8B 


94 





ADDR 


2564 
2565 
2567 
256A 
2568 
256C 
256D 
256E 
2571 
2572 
2574 
2575 
2577 
2578 
257A 
257D 
257D 
257D 
257D 
258¢ 
2581 
2583 
2586 
2588 
2588 
258¢ 
258D 
258F 
2592 
2594 
2597 
2599 
259¢ 
259D 
259£ 
25A0 
25A3 
25A4 
25A5 
25A7 
25AA 
25AB 
25aC 
25AD 
25AE 
2581 
2582 
2584 
2585 
2587 
25BA 
25BA 
25BA 
25BA 
258D 
25BE 
258F 


Bl 


7z 
E6 
CA 
09 
09 
JE 


CA 
28 
36 
28 
36 
28 
36 
&3 


2A 


FE 
CA 
FE 
C2 
23 
7E 
FE 


FE 
aA 
PE 
ez 
25 
TE 
FE 
CA 
09 
TE 
E6 
CA 
09 
09 
TE 
B7 
CA 
28 
36 
28 


C3 


2A 


TE 
FE 


B2 


80 
F8 


F8 
Fe 
PP 


Pr 
P8 


00 


28 
8B 


1D 
04 
42 
43 
37 
BA 


04 
42 


80 


42 


42 
EF 


PF 
42 


00 


04 


B3 E£ SINE 


26 


26 


26 


35 


25 


26 


26 
25 


20% 


26 


26 


26 


26 


35 


4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 


LABEL OPfD 


R2E 


R2E 


R2E 


* 
@ 
a 


R2P 


JMP 


PAGE 08 
OPERAND 


A,M * GET COL X+3 PEATA 
VOWEL 

ENDR2 * NOT A VOWEL 

B 

B 

A,M * GET COL X+3 STRESS 

A 

ENDR2 * VOWEL MUST BE STRESSED 
H 


M,-~1 * SET STRESS X42 = -1 
H 

M,-1 * SET STRESS X+#] #2 -1 
H 

M,-~l * SET STRESS X = -1 
ENDR2 


STRESSX,X+l#-1 <=# /T OR D,SH OR ZH/VOWEL STRESS.NE.O 


LHLD 
HOV 
CPI 
JZ 
Cpl 
JNZ 
1 INX 
MOV 
Cpl 
JZ 
Cpl 
J2 
CPI 
JNZ 
2 INX 
MOV 
CPI 
JZ 
DAD 
MOV 
ANI 
JZ 
DAD 
DAD 
MOV 
ORA 
JZ 
DCX 
MVI 
DC X 
MVI 
JMP 


DX <= VOWEL/T 


SHLD 
DCX 
MOV 
CPI 


MATPTR 

A,M * GET COL xX CODE 

cr 

R2E1 * ATS: A\T 

CD 

R2H * IT'S NEITHER T NOR D 
H 

A,M * GET COL X+l1 CODE 
CTERM 

R2JK # “LAST COL 

CSH 

R2E2 # cOL xX+l IS SH 

CZH 

R2P * X+1 IS NEITHER SH OR 28 
H 

A,M * GET COL X+2 CODE 
CTERM 

R2J0K * LAST COL 

B 

A, * GET COL X+2 FEATA 
VOWEL 

R2J0K # X+2 NOT A VOWEL 

B 

B 

A, * GET COL. At2 STRESS 
A 

R2JK * VOWEL X4#2 NOT STRESSED 
H 

M,-1 * SET STRESS X+1 * =-1 
H 

M,-1 * SET STRESS X » =1 
R2JK 


CR D/{WDBND,VOWEL) OR VOWEL STRESS.EQ.0 


MATPTR 

H 

A,M * GET COL X-1 CODE 
CTERM 


9 





aa Oo 140? 


ee Si en 
O: Gs ow & Oem 
oe ee a 


Bl 


CA 
09 
TE 
E6 
CA 
23 
Pag 
TE 
E6 
C2 
JE 
E6 
CA 
9 
“9 
TE 
B? 
CA 


2A 
23 
23 
7E 
FE 
CA 
09 
7 
E6 
CA 
3E 
CD 
C3 


2A 
ae 
FE 


ay ae 


2B 
TE 
Fe 


a 
ze 
Fé 
TA 
ba 
2 
r3 


FE 
C2 
LE 


B2 


42 


80 
42 


04 
E2 


89 
42 


FS 
42 
09 


04 
42 


80 
42 
2F 
Oc 
F8 


CO 


SE 


o4 
Fe 


os 
Fo 
4a 


Fé 


29 
aT 


BE 


26 


26 


25 


26 


25 
26 
25 


26 


20 
26 


35 


26 


25 


26 


22 
26 


26 


OPERAND 


R2JK 
B 

A,M 
VOWEL 
R2JK 
H 

H 

A,M 
WDBND 
R2F 2 
A,M 
VOWEL 
R2JK 
B 

B 

AM 


A 

R2F3 
R2JK 
MATPTR 
H 

H 

A,M 
CTERM 
R2JK 

B 

A,M 
VOWEL 
R2JK 
A,CDX 
MATPAK 
ENDR2 


MATPTR 
A,M 
CuW 
22H 

H 

A,M 
CTERM 
ENDR2 
B 

B 

AM 
DENTAL 
ENDR2 
A, fUX 
MATPAK 
ENDR2 


KX <= /K/VOWES -FRONT 


CK 
R21 


SINE SABEL OPCD 
4570 JZ 
4580 DAD 
4590 MOV 
4600 ANI 
4610 Jz 
4620 INX 
4630 INX 
4640 40V 
4650 ANI 
4660 JNZ 
4670 MOV 
4630 ANI 
4699 JZ 
4700 DAD 
4710 DAD 
4720 MOV 
4730 ORA 
4740 JZ 
4750 JMP 
4769 R2P2 LHLD 
4770 INX 
4780 INX 
4790 MOV 
4800 CPI 
4810 JZ 
4820 DAD 
4839 MOV 
4840 ANI 
4859 JZ 
4869 R2F3 MVI 
4870 CAGL 
4880 JMP 
4890 

4900 * UX <= DENTAL/UW/ 
4910 

4920 R2G “HLD 
4939 MOV 
4340 cPl 
4950 JNZ 
4960 DCX 
4970 MOV 
4940 CPI 
499) JZ 
§9¢4 DAD 
S)i9 DAD 
8929 “OV 
Sciv ANI ~ 
5040 JZ 
3292 MvVI 
536) CALS 
5370 J4eP 
5080 * 

5590 * 

51ic9 # 

5110 R2H Cel 
$120 JNZ 
$130 MVI 


E,CRKX 


96 


* 
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cos x 1S 1ST COL 

GET [OS X-1 FEATA 
NOT A VOWEL 

GET COL X+l1 FEATA 
IT'S A WCRD BOUNDARY 
GET FEAT A AGAIN 


IT°S NOT A VOWEL 


GET COL X+i1 STRESS 


VOWEL IS UNSTRESSED, DO THE RULE 


GET COL X+2 CODE 


IT'S NOT A VOWEL 


GET COL X CODE 


GET COL X-1 CODE 


UW IS IN COL i, END OF GROUP 


GET COL X=-1 FEATB 
NCT A DENTAL CONSONANT 


CHANGE COS TO /Xx 


COG X MUST BE EITHER Ky ae. 





ADDR 


2624 
2627 
2627 
2627 
2627 
2629 
262C 
262E 
262F 
2630 
2632 
2635 
2036 
2637 
2639 
263B 
263E 
203F 
2642 
2642 
2642 
2642 
2642 
2645 
2646 
2047 
2648 
264A 
264C 
264F 
26:52 
2653 
2654 
2656 
2659 
265B 
265E 
265F 
2660 
2661 
2063 
2666 
2667 
2668 
266A 
266D 
2670 
2671 
2673 
2676 
2676 
2676 
2676 
2679 
267A 
267B 
267C 


Bi 


FE 
G2 
1E 
23 
TE 
FE 


09 
7E 
EE 
E& 
f2 
7B 


2A 
54 
5D 
09 
09 


B2 


2E 


2D 
42 
2E 


04 
42 


80 
A0 
42 


0) as 


00 


04 
SE 
32 
6D 


04 
F8 


06 
76 
09 


00 


B3 E 
26 


26 


26 


26 
20 


35 


26 
15 


26 


26 


26 


26 


35 


20 


35 


sINE 


5140 
5150 
5160 
5170 
5180 
5190 
5290 
5210 
5220 
5230 
5240 
5250 
5260 
a270 
5280 
5290 
5300 
5310 
$320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5409 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5590 
5510 
5520 
5530 
5540 
S550 
5560 
2570 
5580 
5590 


LABEL 


OPTD 


JMP 
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OPE RAND 


R2HI 


* GX <= /G/VOWEL -FRONT 
® 


R21 


R2HI 


ADD 4 
ADD 4 


* = @ © 


R2J3K 


R2J3K1 


R2IK2 


CPI 
INZ 
MVI 
INX 
MOV 
CPI 
a2 
DAD 
MOV 
XRI 
ANI 
IN2 
MOV 
CAL 


TO CODE 
TO CODE 


LHLD 
DAD 
DAD 
MOV 
XRI 
ANI 
JNZ 
LULD 
DCX 
MOV 
CPI 
JZ 
CPI 
JZ 
INX 
INX 
MOV 
CPI 
J2 
DAD 
MOV 
ANI 
J2 
LHLD 
MOV 
ADI 
CALL 


CG 

R2JK * ... OR G 

E,2GX 

H , 

A,M * GET COL X+1 CODE 
CTERM 

R2JK * PLOSIVE IS IN LAST COL 
B 

A,M * GET COL X+l FEATA 
VOWEL 

VOWEL+FRONT 

R2JK * NOT A VOWEL -FRCNT 
A,E 


MATPAK * CHANGE COL X TO BACK CONSONANT 


<2 S/PLOS -VOICE/ 
<a /PLOS -VOICE/WORDBOUND 


MATPTR 

B 

B 

A,M * GET COL X FEATB 

PLOS 

PLOS+VOICE 

R2L * NOT AN UNVOICED PLOSIVE 
MATPTR 

H 

AM * GET CCL X=1 “CDE 

TERM 

R2JK1i * PLOSIVE IS IN 1ST COL 
cs 

R2JK2 * cOL x-1 IS S, DO THE RULE 
H 

H 

A,M * GET COL X+i CODE 

CTERM 

ENDR2 * PLOSIVE IS IN LAST COL 
B 


AM * GET COL X+1l FEATA 
WDBND+PHBND 

R2L * NOT A BOUNDARY 
MATPTR 

A,M 

4 


MATPAK * ADD 4 TO COCE IN “OL X 


* =-PLOS =PLOSA <= /PLOS/OPTIONAL WDBOUND,STCP 
a 


R2L 


“HLD 
MOV 
MOV 
DAD 
DAD 


MATPTR 
0,8 

Be 

B 

B 


oi 





ADDR 


267D 
_ 267E 
2680 
2683 
2684 
2685 
2686 
2688 
268B 
268D 
2690 
2691 
2692 
2694 
2697 
2698 
2699 
269A 
269C 
269F 
26A0 
26A2 
26A3 
26A6 
26A6 
26A6 
26A6 
26A9 
26AA 
26AB 
26AC 
26AD 
26AE 
26B0 
26B3 
26B4 
2685 
26B6 
26B8 
26BB 
26BD 
26C0 
26C1 
26C2 
2604 
26C7 
26C9 
26CC 
26CE 
26D1i 
26D1 
26D1 
26Di 
26D4 
26D5 
26D6 
26D7 


B2 


20 
P8 


04 
P8 
00 
97 


04 
PB 


80 
A6 


oF 
FB 


00 


10 
P8 


04 
FRB 
00 
C7 


00 


80 


B3 E LINE 


26 


26 
26 


26 


26 


26 


35 


26 


26 
26 


26 


26 


26 


35 


5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
5890 
5900 
5910 
5920 


5930- 


5940 
5950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
607C 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6169 
6170 
6180 
6190 
6200 
6210 


LA 


R2L 


® 
® 
® 


R2M 


R2M 


* 
* 


R2N 


BEL OPCD 
MOV 
ANI 
JZ 
XCHG 
INX 
MOV 
CPI 
JZ 
CPI 
JNZ 
INX 
MOV 
Cri 
JZ 
2 DAD 
DAD 
MOV 
ANI 
JZ 
CDAX 
ANI 
STAX 
JMP 


OPERAND 


A,M 
PLOS 
ENDR2 
& 

H 

A,M 
CTERM 
ENDR2 
CSPACE 
R242 
H 

A,M 
CTERM 
ENDR2 
B 

B 

A,M 
STOP 
R2M ° 
D 


* 
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GET COL X PEATB 


NOT PLOSIVE, END GROUP 2 
LEAVE DE AT COL X FEATB 


GET COL X+l CODE 
PLOS IN LAST COL, END GP 2 
X+1 IS NOT WDBOUND, Y=#X+l 
X+l1 IS WDBOUND, Y=*#X+2 
WOBOUND IS LAST COL 

GET COL Y FEATB 


GET COL X FEATB 


255-PLOS-PLOSA 


D 
ENDR2 


* 


DELETE FEATURES PLOS & PLOSA 


~PLOSA <= /PLOSA/OPTIONAL WDBOUND,WH OR HH 


LHLD 
MOV 
MOV 
DAD 
DAD 
MOV 
ANI 
JZ 


2 CPI 


MATPTR 
D,H 
E,& 

B 

B 

A,M 
PLOSA 
ENDR2 . 
® 

H 

A,M 
CTERM 
ENDR2 
CS PACE 
R2M2 

H 

A,M 
CTERM - 
ENDR2 
CWH 
R2MN 
CHH 
R2MN 


* 


® 


GET COL XK FEATB 


NOT PLOSIVE ASPIRATE, END 2 
SEAVE DE AT COL X FEATB 


GET COL X+l1 CODE 

PLOS ASP IS IN LAST COL 
X+]1 IS NOT WDBOUND, Y=#X+1 
X+]1 IS WDBOUND, Y=#X+2 
GET COL Y¥ CODE 

WDBOUND IS LAST COL 

COL Y IS WH, DO THE RULE 


COL Y IS HH, DO THE RULE 


~PLOSA <=* -BOUNDARY/PLOSA/VOWEL STRESS.EQ.0 


LHLD 
INK 
DAD 
MOV 
ANI 


MATPTR 
H 

B 

A,M 
VOWED 


98 


® 


GET COL X+l FEATA 





ADDR 


26D9 
26DC 
26DD 
26DE 
26DF 
26E0 
26E3 
26E6 
26E7 
26E8 
26EA 
26ED 
26EE 
26EF 
26F1 
26F4 
26F5 
26P7 
26F8 
26F8 
26F8 
26F8 
26F9 
26FC 
26FD 
2700 
2701 
2704 
2705 
2706 
2107 
270A 
270A 
270A 
270A 
270A 
270A 
270A 
270A 
270D 
2710 
271% 
2714 
2715 
Z714 
2719 
ZING 
271D 
271E 
Zils 
2720 
2721 
2724 
22.25 
2727 
27238 
2728 


00 


7A | 
22 
EB 
2A 


D8 
EB 
C3 


B2 


FS 


F8 
00 


04 
F8 


06 
P8 


EF 


00 
00 
02 


81 


61 
02 


OF 
00 
02 


El 
0 


DP 
DPF 


ao 
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B3 E LINE LABEL OPCD OPERAND 
26 6280 JZ ENDR2 * NOT A VOWEL 
6290 DAD 8 
6300 DAD 8 
6310 MOV A,M * GET COL X+] STRESS 
6320 ORA A 
26 6330 JNZ ENDR2 * VOWEL IS STRESSED, END GP 2 
35 6340 LHLD MATPTR 
6350 DCX H 
6360 MOV A,M * GET COL X-1 CODE 
6370 CPI CTERM 
26 6380 JZ ENDR2 
6330 DAD B 
6400 MCV A,M * GET COL X-1 FPEATA 
6410 ANI WDOBND+PHBND 
26 6420 JNZ ENDR2 * EITHER BOUNDARY STOPS THE RULE 
6439 R2MN LDAX D * GET COL X FEATB 
6440 ANI 255-PLOSA 
6450 STAX D * DELETE COL X PLOSA PEATURE 
6460 * 
6470 * END OF RULE GROUP 2 
6480 * 
6490 ENDR2 NOP * * BREAKPOINT LOC . 
35 6500 “SHLD MATPTR 
6510 INX | 
35 6520 SHLD MATPTR 
6530 XCHG 
aS 6540 LHLD NEGEND 
6550 DAD D 
6560 RC . * RETURN IP AT END OF MATRIX 
6570 XCHG 
24 6580 JMP R2LOOP 
6590 * 
6600 *e#eeeeeene 
6610 * 
6620 * SUBROUTINES 
6630 * 
6640 * MOVE DATA IN MATRIX AND INSERT A COLUMN 
6650 * 
35 6669 MATNSR UXxI D,MATRIX+MATLEN=2 
35 6670 SHLD NEGEND * IS THERE ROOM TO INSERT 
6680 DAD D 
20 6690 JNC MATERR * NO 
6700 PUSH PSW * YES, SAVE THE NEW CODE 
35 6710 LHLD MATPTR * COMPUTE # OF COLS TO MOVE 
6720 XCHG 
35 6730 LHLD NEGEND 
‘ 6740 DAD D 
6750 MOV A,L 
6760 CMA 
6770 INR A 
6780 INR A 
36 6790 STA COUNT 
; 6800 MOV L,A * COMPUTE NEW ADDR OF LAST COL 
6810 MVI H,0 
6820 DAD D 
36 6830 SHLD MOVAD 
36 6840 INSR1 LHLD MOVAD 
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ADDR Bl B2 BJ E SINE LABEL OPCD OPERAND 

272E 54 6850 MOV D, fi 

272F SD 6860 MOV E,L 

2730 1B 6870 DX D 

2731 3A El 36 68380 LDA FOUNT 

2734 4F 6890 MOV C,A 

2735 IA 6909 INSR2 LDAX OD * MOVE A ROW RICHT 1 LOf 
2736 77 6910 MOV M,A 

2737 1B 6920 DX X D 

2738, 28 6930 DX Hi 

2739 OD 6940 OCR C 

273A £2 35 27 6950 JNZ INSR2 

273D 2A OF 36 6960 SHLD MOVAD * UPDATE NEW POINTER 
2740 ll SF 00 6970 LXxI D,MATLEN 

2743 19 6980 DAD D 

2744 22 DOF 36 6990 SHLD MOVAD 

2747 11 21 “9 7006 Lx! D,-MATEND * ANY MORE ROWS? 

274A 19 7010 DAD D 

274B D2 2B 27 7020 JNC INSR1 * YES 

274E Fi 7036 POP PSW * GET THE NEW CODE 

274F €D GC 26 7040 CALL MATPAK * SET CODE AND FEATURES 
2752 29 7050 DAD B 

2753 36 90 7060 MVI 4,0 * PUT G STRESS IN NEw COL 
2755 09 7070 DAD B 

2756 36 00 7086 MVI M,0 * PUT G DURATION IN NEW OL 
2758 2A G2 35 7096 SHLD NEGEND * DONE, DECREMENT NEGEND 
2758 28 7100 Dx X Hi 

2198 22°02 35 7110 SHLD NEGEND 

275F 2A 99 35 411206 SHLD MATPTR * AND INCREMENT MATPTR 
27162723 71306 INX Hi 

276322 90 35 71406 SHLD MATPTR 

2766 AF 7150 XRA A * CLEAR ERROR CONDITION 
2167 C3 7160 RET 

2768 7110 * 

2768 7180 * END OF SECT2 
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ADDR Bl B2 B3 E LINE 


20450 
2000 
2990 
2000 
2000 
2009 
2000 
2900 
2990 
2909 
2000 
20C4 
2¢00 
2000 
2653 
2006 
2008 
200A 
200C 
200F 
2Ui2 
2015 
2018 
2018 
201 
2024 
2024 
2027 
202A 
203A 
203A 
203A 
203A 
203A 
203A 
3599 
3500 
3509 
3504 
3500 
3502 
3594 
3504 
3504 
3563 
35CZ 
362) 
36380 
36DF 
360F 
360F 
36DF 
3J6DF 
36Ei 
36E2 
36E3 
36E3 


3 70: 27 
©3 iF 28 


Yo10 
0920 
0930 
9040 
0050 
9060 
0070 
9089 
0690 
9100 
9119 
0120 
9130 
0140 
3159 
0169 
0170 
9130 
0190 
0200 
0210 
Q220 
0230 
0240 
0256 
0260 
6270 
92380 
0290 
0390 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
Y510 
0529 
9530 
0540 
9550 
0560 
0579 
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LASEL OPCD OPERAND 
# RULES GROUP 3 
t 
* SECTION 3 OP THE CSR1i SYNTHESIS BY RULE SYSTEM 
t : 
# ULOYD RICE, COMPUTALKER CONSULTANTS 
* VERSION 1.08 MAY 39, 1977 
® 
TERR RRA BRE SE I 
t 
* COMMON JUMP ADDRESS TABLE 
® 
COMJIMP EQU $ 
2 
CSRi DS 3 
PLAY DS 3 
BUF ADR DS 2 
BUFEND DS 2 
PVTAB DS 2 
MATPAK DS 3 
MATERR DS 3 
RULES DS 3 
JMP SETDUR 
JMP RULES 3 
GENFO DS 3 
CURBUP DS 3 
GENPRM DS 3 
MUL DS 3 
DIV DS 3 
DUMMY DS i6 
2 
2tee2ve2e 2 Ofek 
t 
*® COMRAM ORIGEN DEFINITION 
2 
ORG COMJMP+1599H 
COMRAM EQU $ 
t 
* CSR1 SYSTEM RAM SPACE DEFINITION 
2 
MATPTR DS 2 
NEGEND DS 2 
MATRIX ECU $ 
MATLEN EQU 95 
PHCODE DS MATSEN 
FEATA DS MATUEN 
FEATB DS MATLEN 
STRES oS MATLEN 
DUR DS MATLEN 
“ATERD ECU $ 
t 
* RULES GROUP 3 (LOCAL) RAM WORKSFACE 
t 
PREVBD DS 2 
NV DS i 
NEXT DS I 
t 
@eeennecee 2 @ 
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ADDR B81 B2 B3 E LINE CABELL OPCD OPERAND 
J6E3 q560)* 

J6E3 0590 * CSR1 SECTION 3 CODE 
J6E3 0600 * 

36E3 0610 ORG COMJIMP+7708 
2770 C620 SECTAD EQU $ 
2770 0630 * 

2770 0640 eeeaeeeeene 

2770 657 * 

2770 0660 * PHONEME CGCE DEFINITIONS FOR RULES 
2770 0670 * 

2770 0680 CSPACE EQU A) 
2770 0690 CTERM EQU 4 
2770 0700 CUW EQU 14 
2770 0710 CUX EQU 18 
2770 0720 CRX EQU 24 
2770 0730 (LX EQU 25 
2770 0740 CWX ECU 26 
2770 0750 CYX EQU 27 
2770 0760 CR EQU 32 
2770 09776 CW EQU 34 
2770 07890 CL EQU 33 
2770 0799 CM EQU 36 
2770 0800 CN EQU 37 
2770 0810 CNX EQU 38 
2770 0820 CP EQU 39 
2779 0830 CT EQU 40 
2770 0840 CK ECU 4]. 
2770 0359 CKX EQuU 42 - 
2770 0860 CE £QU 43 
2770 0870 €D EQU 44 
2770 0880 CG EQU 45 
2770 9890 GX EQU 46 
2770 0900 CDX ECU 47 
2770 0910 CS ECU 50 
2770 09:20°C5H ECu 51 
2770 9930 Cz EQU 54 
2770 0940 CZH EQU 55 
2770 9950 CQ EQU 59 
2770 Q5960 * 

2770 0970 * DEFINE FEATURE LABELS 
2770 980. * 

2770 9990 VOWEL EQU 80H 
2770 1909 CONS ECU 40H 
2770 1010 FRONT EQU 20H 
2770 1020 BPIPHTH EQU 10H 
2770 1030 WOBND EQU 4 
2770 1040 PHBND EQU 2 
2770 1959 IGNORE EQU Hf 
2770 1060 STOP EQU 80H 
2720 1070 VOICE EQU 40H 
2770 1080 PLOS "  EQU 20H 
2770 1090 PLOSA EQU 10H 
2770 1100 FRIC EQU 3 
2770 L110 LIOUID EQU 4 
2770 1120 NASAL ECU 2 
2770 1130 DENTAL EQU i 
2770 1140 * 
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ADDR Bl B2 B3 E LINE 


2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2770 
2773 
2776 
2779 
277A 
2778 
2176 
277D 
2175 
2789 
2783 
2785 
2786 
2787 
2789 
278A 
278B 
278C 
278E 
2791 
2792 
2793 
2794 
2799 
2796 
2799 
279A 
279D 
279E 
27Al 
27A2 
27A3 
27A4 
27A7 
27A7 
27A7 
27A7 
27A7 
27A7 
27A8 
27A9 
27AA 
27AB 
27AC 
27AD 
27AE 


00 
00 
00 
00 
48 
48 
00 
00 


05 


SF 


06 
86 
00 


er 


00 
A? 


00 
00 
02 


79 


a5 
00 


27 


47 


35 
35 
S ie’ 


27 


1159 
1160 
1170 
1180 
1190 
1200 
1210 
1229 
i230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
£310 
1320 
1330 
1340 
1350 
1360 


1370 — 


1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1509 
1510 
1520 
1330 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1659 
1660 
1670 
1680 
1690 
1700 


1710 


LABEL OPCD 


senweevesezen 


SET DURATION 


SETDUR LXxI 
SHLD 
UXT 
SDLOOP MOV 
DAD 
DAD 
DAD 
MOV 
CPI 
JM 
MVI 
MOV 
SD1l PUSH 
ADI 
MOV 
RAG 
MOV 
MVI 
LxI 
DAD 
MOV 
POP 
DAD 
MOV 
“HLD 
INX 
SHLD 
XCHG 
CRLD 
DAD 
RC 
XCHG 
JMP 


DURTAB DB 
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OPERAND 


ALL DURATIONS ARE ASSIGNED AND MANIPULATED 
IN UNITS OF 2.5 MSEC IN THIS SECTION. 
FINALLY, AT THE END OF RULES3, THE DURATION 
VALUES ARE DIVIDED BY 4 TO GIVE UNITS OF 

10 MSEC, CORRESPONDING TO THE ACTUAL FRAME 
COUNT FOR EACH PHON (EACH MATRIX COLUMN). 


ROW OF MATRIX FROM TABLE 


H, MATRIX+1 

MATPTR 

B,MATLEN 

E,M * GET CODE xX INTO & 

B 

B 

B 

A,M * GET STRESS X INTO A 

6 

SDl 

A,0 * STRESS.GT.5, SET IT TO 0 
M,A 

H 

255 * SET CARRY IF A.NE.O 

A,E 

E,A 

D,0 

H, DURTAB 

D * COMPUTE LOC IN DURATION TABLE 
A,M * GET DURATION (IN 2 MSEC UNITS) 
H 

B 

M,A ° * PUT OUR VALUE IN THE MATRIX 
MATPTR 

H 

MATPTR ® INCREMENT POINTER 

NEGEND 

D 

* * RETURN IF END OF MATRIX 
SDLOOP 


TABLE OF DURATION VALUES (IN 2.5 MSEC UNITS) 
EACH PHON HAS A STRESSED DURATION VALUE 
AND AN UNSTRESSED DURATION VALUE. 


* SPACE (WDBNC: 


* PERICD 


2 


B) 
) 
0 
0 
72 * COMMA (PAUSE) 
y 
0 * QUEST 

0 
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ADDR 81 B2 83 & LINE LABEL OPCD OPERAND 
27AF 00 1720 DB 0 * TERM 
2780 20 1730 DB 0 

27B1 22 1740 DB 34 * IY, UNSTRESSED 
2782 2B 1750 DB 43 * LY, STRESSED 
2783 1D 1760 DB 29 * IH, UNSTRESSED 
2784 22 1770 DB 34 * IH, ETC. 
27B5 22 1780 DB 34 «* EH 
2786 28 1790 DB 43 

2787 IF 1800 DB 31 * AE 
27BB 3A 1810 DB 58 

2789 2B 1820 DB 43 * AA 
27BA 3C 1830 DB 60 

27bB 18 1840 DB 24 * AH 
27B2 2A 1850 DB 42 

27BD 30 1860 DB 48 © AO 
27BE 40 1870 DB 64 

27BF 3A 1880 DB 58 * OW 
2700 3A 1890 DB 58 

27C1 29 1900 DB 41 * UH 
27C2 2E 1910 DB 46 

27C3 24 1920 DB 16 «* UW 
27C4 38 1930 DB 56 

27C5 16 1940 DB 22 * AX 
27C6 18 1950 DB 24 

2707 16 1960 DB 22 * Ix 
27¢8 18 1970 DB 24 

27C9 2B 1980 DB 43 * ER 
270A 38 1990 DB 56 : 
27CB 24 2000 DB 16 * UX 
27C 38 2010 DB 56 

27CD 26 2020 DB 38 * OH 
27CE 38 2030 DB 56 

27CF 30 2040 DB 48 * AW 
27D0 3A 2050 DB 58 

27D1 30 2060 DB 48 * AY 
27D2 3A 2070 DB 58 

27D3 30 2060 DB 48 * OY 
27D4 3A 2090 DB 58 

27D5 35 2100 DBO «S30 C* EY 
27D6 37 2110 DB 55 

27D7 26 2120 DB 38 = * RX 
27D8 30 2130 DB 48 

27D9 26 2140 DB 38 * LX 
27DA 2B 2150 DB 43 , 
27DB 20 2160 DB. 32 * XxX 
2700 20 . 2170 DB 32 

270D ID 2180 DB 29. * YX 
27DE 20 2190 DB 32 

27DF 22 2200 DB 14 * WH 
27E0 2A 2210 DB 42 

27E1 00 2220 —; DB 0 * EL 
27E2 09 2230 DB 

27E3 00 2240 DB 0 * EM 
27E4 00 2250 DB 0 

27E5 00 2260 DB 0 * EN 
27£6 00 2270 DB 0 

27E7 iC 2240 DB 28 * R 
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Bi 82 83 E LINE LABEL 


28 
13 
22 
20 


> 20 


13 
20 
iG 
TE 
1G 
iE 
a6 
iE 
20 
20 
10 
18 
18 


2290 
2300 
2310 
2320 
2339 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
241090 
2420 
2439 
2440 
2459 
2469 
2470 
2480 
2490 
2500 
2510 
2520 
25330 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2639 
2640 
2650 
2660 
2670 
2680 
2699 
2700 
2710 
27290 
2730 
2749 
2750 
2760 
2770 
2784 
27990 
2309 
2810 
23820 
2330 
2840 * 


2850 werererete 
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OPERAND 

40 

24 e 

34 

32 W 

32 

24 x 

32 

28 M 

30 

28 N 

30 

23 NX 
30 

a2 P 

32 

16 Z 

24 

24 K 

24 

24 KX 
24 

24 B 

26 

16 D 

20 

24 G 

24 

24 GX 
24 

io DX 
i? 

42 F 

44 

38 TH 
40 

438 S 

48 

44 SH 
44 

26 V 

30 

24 DH 
24 

24 z 

24 

24 2H 
24 

0 CH 
0 

0 JH 
0 

24 HH 
23 

io Q 

10 
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Bl 


90 
AF 
32 
32 
Ol 
2i 
22 


B2 


Es 
E2 
SF 
35 
00 


El 


96 
46 


80 


AB 


AB 
02 
Al 


00 


00 


Ze 


DF 


B3 E 


36 
36 
G0 
35 
35 


36 


28 


28 


28 


28 


20 


36 
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SINE LABEL OPCD OPERAND 

2869 * 

2870 * RULES GROUP 3 

2880 * 

28990 akeaeeaeaaeeak 

2900 * 

2910 RULES} NOP 

2920 XRA A 

2930 . STA NV * CLEAR VOWEL COUNTER (RUSE 3A) 
2940 STA NEXT * CLEAR NEXT (RULE 3B) 

2950 LXxI B,MATLEN 

2960 LXxI H,MATRIX+1 

2970 SHLD MATPTR 

2980 R3LOOP EQU $ 

2990 * 

3000 * 

3010 * IN THE SPAN BETWEEN TWO WORD OR PHRASE BOUNDARIES 
3920 * CHANGE THE DURATION OF EACH STRESSED VOWEL 

3030 * BY (NV4+1)/(2*NV), WHERE NV IS THE NUMBER OF 

3040 * VOWELS IN THE SPAN. 

3050 * 

3069 R3A DAD B 

3070 LXI B,NV 

308G HOV OAM * GET COL X FEATA 

3090 ANI WDBND+PHBND 

3100 JINZ R3A2 * EITHER BOUND, COMPUTE THE SPAN 
3110 MOV A,M * NOT A BOUNDARY, IS IT A VOWEL? 
3120 ANI VOWEL 

3130 JZ R38 * NO 

3140 LDAX B * YES, INCREMENT NV 

3159 INR A 

3160 STAX B 

3370 JNP R3B 

3180 R3A2 “SDAX 8B * GET NV 

3190 SPI 2 

3200 Jc R3A5 * 0 OR 1 VOWEL, NO DUR CHANGE 
3219 INR A 

3220 MOV ey * PUT (N+i)*64 IN HL 

3230 MVI H,0 

3240 DAD H 

3250 DAD H 

3260 DAD H 

3270 DAD H 

3280 DAD H 

3290 DAD H 

3300 XCHG * * THEN INTC CE 

3310 LDAX 8B * GET NV AGAIN 

3320 MOV 4L,A 

3330 MVI H,O 

3340 INX i 

3350 CALL DIV * RESULT IS DUR RATIO IN 64THS 
3360 MOV A,L 

3370 STAX B * SAVE IT IN NV 

3380 LHLD PREVBSD 

3390 INX | 

3400 MOV A,H * =(PREVBD)-2 INTO DE 

3410 CMA 

3420 MOV D,A 
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ADDR 


2868 
2369 
286A 
2868 
286E 
286F 
24370 
2873 
2876 
2377 
287A 
2878 
287C 
237E 
238) 
2882 
2883 
2884 
2385 
2888 
2889 
288° 
288D 
288E 
288F 
2392 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2358 
2390 
239D 
239E 
28Al 
28A2 
28A5 
23A8 
28AB 
28AB 
28AB 
23AB 
29AE 
23Bi 
23B2 
2883 
2885 
2388 
2339 
26534 
23BC 
28BF 
28€0 
28C1 


2A 
)1 
09 
7E 
E6 
CA 
2B 
7E 
E6 
G2 
ES 
99 
09 


B2 


00 


2) a 
DF 
DF 


80 
9D 


9D 


El 


24 


00 


70 


ei 
00 
DF 


00 
SF 


92 
D8 


92 
D8 


B3 E LINE 


35 


00 
36 


36 


23 


28 
36 


20 


28 


36 
35 
36 


35 
00 


28 


28 


3430 
3440 
3450 
3469 
3470 
3489 
3490 
3500 
3510 
3520 
3330 
3540 
3550 
3540 
3579 
3580 
3430 
3609 
3610 
3620 
3630 
3640 


3650. 


3660 
3670 
3680 
3690 
3700 
3710 
3729 
3730 
3749 
3750 
3760 
3720 
3780 
37939 
3890 
3810 
3320 
3830 
3840 
3850 
3860 
3870 
3830 
3890 
3900 
3910 
3920 
3939 
3940 
3959 
3960 
3970 
3989 
3990 


LABEL 


H3A3 


R3A4 


R3AS 


* 


OPCD 


MOV 
CMA 
MOV 
LHLD 
DAD 
MOV 
LXI 
SHLD 
INX 
SHLD 
DAD 
MCV 
ANI 
J2 
DAD 
DAD 
MOV 
ORA 
J2 
DAD 
ODA 
MOV 
PUSH 
MOV 
MALL 
XCEG 
DAD 
DAD 
XCHG 
MOV 
RAS 
MOV 
ACI 
MOV 
POP 
DCR 
JNZ 
XRA 
STA 
LHLD 
SHLD 
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OPERAND 
A,& 


E,A 

MATPTR 

D * (MATPTR)-(PREVBD)<2 INTO HL 
E,L * E IS ©OL COUNTER FOR THE SPAN 
B,;MATLEN 
PREVBD 

H * SCAN THE SPAN 

PREVBD 

B 

A,M * GET FEATA 

VOWEL 

R3A4 * NOT A VOWEL 

B 

8 

A,M * GET THE STRESS VALUE 

A 

R3A4 * VOWEL NOT STRESSED 

B 

NV 

B,A 

D 

£, * PUT OLD DURATION IN DE 
MUL * NEW DUR *64 IN HL 


x x 


A,E * NEW CUR INTO A 


moto} 
> 


R3A3 

A 

NV * CLEAR THE VOWEL COUNTER 
MATPTR 

PREVBD * UPDATE PREVBD 


* pDUR*1.38 <= /LAST VOWES OF A PHRASE, .../PHEND 


* 


R 3B 


R3B2 


LHLD 
LX! 
DAD 
MOV 
ANT 
J2 
DX 
MOV 
ANI 
JNZ 
PUSH 
DAD 
DAD 


MATPTR 

B,MATLEN * RESTORE BC 

B 

A,M * GET “OL X FEATA 
PHBND 

R3C 

H 

Aym * GET PREV COL FEATA 
PHBND 

R3C * STOP SCAN IF PHBOUND 
H 

B 

B 
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ADDR Bil B2 83 E LINE LABEL OPCD OPERAND 
28€2 09 4000 DAD B 
2803 46 4019 MOV B,M * GET PRESENT DUR INTO B 
2804 1E 58 4020 MVI E, 98H * 1.38 {(SHIPTED) INTO £ 
2826 CD 24 20 4030 CALL MUL * (8) *°(E} INTO DE 
2809 EB 4940 XC HG 
28CA 29 4950 DAD a * SHIFT BIN PT TO BYTE BOUNDARY 
28CB 29 4960 DAD H 
28eC EB 4070 XCHG 
28€D 72 4090 MOV M,D * UPDATE DURATION 
28fE El 4090 POP H 
28°F O1 SF 00 4100 Lx1 B,MATLEN * RESTORE 8,C,#,L 
2802 7E 4110 MOV A,M * GET FEATA AGAIN 
2803 £6 80 4120 ANI VOWEL 
238D5 ©A BB 28 4139 JZ R3B2 * NOT A VOWEL, CONTINUE 
28D8 4140 * 
28D8 4150 * DUR*0.6 <= /VOWEL/PLOS -VOICE 
23D8 4160 * 
28D8 00 4170 R3C NOP 
28D» 2A 00 35 4189 SHLD 6MATPTR 
23aDc 09 4190 DAD B 
28DD 7E 4200 MOV A,M * GET “OL X FEATA 
238DE E6 30 4210 ANI VOWEL 
23E9 CA 39 29 4220 JZ R3P * NOT A VOWEL 
28E3 2A 90 35 4234 SHLD MATPTR 
28E6 23 4240 INX H 
2867 7 4250 MOV A,M * GET COL X+1 COCE 
28E8 FE 04 4260 CPl CTERM 
23EA CA DD 2A 4270 JZ ENDR 3 
28ED 09 4230 DAD B 
28EE 99 4290 DAD B 
28EF TE 4300 MOV A, * GET COL X+l PEATB 
28F0 EE 20 4319 XRT PLOS : 
28F2 £6 60 4320 ANI PLOS+VOICE 
28F4 2 FC 28 4339 JNZ2 R3D * NOT AN UNVOICED PLOSIVE 
20F7 16 26 4340 MVI E, 26H * OK, MULTIPLY BY 6.6 (SHIFTED) 
2059 63 27 29 4350 JMP R30 DE 
28FC 4360 * 
23FC 4370 * DUR*1.25 <= /VOWEL/PRIC VOICE 
28rc 4380 * 
28Fc 7E 4390 R3D MOV A,M * GET COL X+l1 FEATB AGAIN 
28FD 2F 4400 CMA 
23FE E6 48 4410 ANI FRIC+VOICE 
2900 C2 98 29 4420 JNZ R3E * NOT A VOIfED PRICATIVE 
2903 12 590 4130 MVI E, 50H * SET MULTIPLIER TO 1.25 (*64) 
2905, €3 27 29 4440 JMP RACTCE 
> 2968 4450 * 
2908 . 4460 * DUR*G.5 <= /VOWEL/RX OR LX,fONS 
2908 4470 * 
2908 2A 09 35 4430 R3E LHLD UATPTR 
2908 23 4499 INX H 
290C 7E 4590 MOV A,M * GET COL X+] CODE 
2900 “FE “15 4519 es | CRX 
290F CA i7 29 4520 JZ R3E2 
2912 FE. 19 4530 “Pl CLX 
2914 ©€2 DD 2A 4549 JNZ ENDR3 * 130 GOOD, END GRCUP 3 
2957.23 4559 R3E2 INX H 
2918 JE 4564 MOV A,M * GET COL X+2 CODE 
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ADDR 


2919 
29365 
294E 
2918 
2920 
2922 
2925 
2927 
292A 
2928 
29 2€ 
292D 
292E 
2931 
29:32 
2333 
2934 
29 35 
2936 
29:39 
2939 
2939 
2939 
29:3¢ 
29:3D 
2225 
2942 
2944 
2947 
2949 
294f 
294D 
294E 
29 4F 
2350 
2954 
2954 
2357 
2953 
2359 
2352 


2395 <= 


29°F 
2765 
2762 
2755 
23965 
2363 
296A 
2366 
296F 
297) 
2372 
2373 
2976 
2977 


2976 


Bi 


FE 
oy, 
Q9 
7E 
E6 
CA 
iE 
2A 


09 
99 
46 
cD 
EB 
29 
29 
ER 
72 
G3 


24 


DD 


19 


22 
ac 
20 
4c 
23 
8D 


AD 
oS 


24 


. os oO) QR) 


Ci a © ie a) 


3D 
52 


BIE 


2A 


2A 


35 


29 


34 


293 
293 
29 


293 
35 


29 


29 
a5 


29 


29 


SINE 


4570 
4580 
4590 
4690 
4610 
4620 
4639 
4640 
4650 
4669 
4670 
4669 
4690 
4790 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4789 
4790 
4800 
4810 
4820 
4830 
4349 
4850 
4860 
4370 
4380 
4890 
4909 
49:0 
4920 
4939 
4940 
4959 
4960 
4970 
4994) 
439) 
$799 
$919 
$3290 
$939 
$243 
9229 
5639 
5970 
50389 
5999 
5100 
$110 
5120 
5130 


LASEL 


R30 DE 


5 


OPCD 


CPI 
J2 
DAD 
MOV 
ANI 
J2 
MVI 
LHLD 
DAD 
DAG 
DAD 
MOV 
CALL 
XCHG 
DAD 
DAD 
XCHG 
MOV 
JMP 


OPERAND 


CTERM 
ENDR 3 
B 

A.M 
CONS 
ENDR 3 
E, 20H 
MATPTR 


z2oqaq @ 
i“ = 


xm 


4,D 
ENDR 3 
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X+1 IS LAST COL 
GET COL X+2 FEATA 


NOT A CONSONANT 
SET MULTIPLIER TO 0.5 (*04) 


GET COL X DURATION 
MULTIPLY IT BY (E) 


MOVE THE BIN POINT 


* & SET NEW DURATION 


* 


GOTO END OF GROUP 


* DUR#99 MSEC <= S/(W OR R OR L) STRESS.LT.9//VOWEEL 


* 


R3F 


R3F2 


LHLD 
MOV 


DAD 


~HLD 
DT X 
MCV 
“PI 
CPi 
DAD 
DAD 
JNZ 
INX 
DAD 
DAD 


109 


MATPTR 
A,M 

cw 
R3F 2 
TR 
R3F 2 
Ci 

R3H 

B 


eM 


B 
B 
A 
A 
R31 
MATPTR 
a 
A, 
CTERM 
R 3H 

B 

A,™ 
VOWEL 
R3H 
MATPTR 
H 

A,“ 
CTERM 
R 3H 

cs 


* 


& 


& 


& 


5 


GET COL X CODE 


NOT W OR R OR & 


GET COL X STRESS 


STRESS.GE.9 


GET COL X+l1 CODE 
W,R, OR © IS IN LAST “OL 
GET [OL X+] FEATA 


NOT A VOVIEL 


GET ©OL X-1 CODE 


W, R, OR LIS IN IST COL 


MOVE HS TO COS X-1i FEATB 
NO S$ CN COL X-1 





ADDR 


2379 
2978 
297E 
2915 
297E 
297E 
297E 
297F 
2961 
2983 
2986 
2967 
2938 
2989 
298A 
298 
298D 
2398D 
298D 
298D 
2990 
2991 
2992 
2993 
2995 
2996 
2999 
299A 
2998 
299E 
299F 
29A9 
29A2 
29A5 
29A6 
29A7 
29A8 
29A9 
29AA 
23AD 
29AD 
29AD 
29AD 
2980 
29B1 
2962 
2983 
23984 
2936 
2989 
293A 
29BC 
29BF 
2965 
2904 
29€5 
29C6 


Bl 


36 
G3 


B2 


24 
8D 


20 
60 
8D 


08 


$19) 


40 
DD 


AD 


a3 
24 


SF 


00 


28 


04 
738 
a3 
78 


B3 E LINE 


29 


29 


35 


“2A 


23 


20 


00 


35 


29 


2A 


2A 


5140 
5150 
5160 
5179 
5180 
5199 
5209 
§210 
3220 
5230 
5240 
5250 
5260 
5270 
5281) 
5290 
5309 
S310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5419 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5540 
5590 
5600 
5619 
562C 
5630 
5640 
§650 
5669 
5670 
5680 
5690 
5700 


LABEL OPCD 


MVI 
JMP 


DUR+20 MSEC 


xa» » © 


3G MOV 
xRI 
ANI 
JINZ 
INX 
DAD 
DAD 
MOV 
ADI 
MOV 

® 
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OPERAND 
M, 36 * SET DURATION TO 90 4SEC 
R3H 
<s PLOS -VOICE/(W OR R OR 4) 
STRESS.LT.O/VOWEL 
A,M * GET COL X=] FEATB 
PLOS 
LOS+VOICE 
R3H * NOT AN UNVOICED PLOSIVE 
H 
B 
B 
A,M * GET ©OL X STRESS 
8 * ADD 20 MSEC 
M,A 


* DUR*0.8 <= /CONS STRESS.LT.0/ 


2 


R34 LELD 
DAD 
DAD 
MOV 
ANI 
JZ 
DAD 
MOV 
ORA 
JP 
DAD 
MCV 
MVI 
CALL 
XCHG 
DAD 
DAD 
XC HG 
MOV 
uXxl 


* 


HATPTR 

B 

B 

A,M * GET COL X FEATB 

CONS 

ENDR 3 * NOT A CNS, END OF GROUP 
B 


A, * GET COL X STRESS 

A 

R31 * STRESS IS NOT NEGATIVE 
B 

ByM * GET COL X DURATION 

E, 33H * MULTIPLY BY 9.8 

MUL 

H * SHIFT IT OVER 

H 

M,D * SET NEW DUR 


B,AATLEN 


* DUR#70,60 MSEC <= /T STRESS.GE.0,SH STRESS.GE.0/ 


2 


R31 LHOD 
NOV 
MOV 
INX 
MOV 
CPI 
JNZ 
LDA X 
CPI 
JZ 
Cri 
JZ 
DAD 
DAD 
DAD 


MATPTR 

D,H 

E,L 

D 

A,* * GET COL X CODE 
ct 
R3J 

D 
CTERM 
RIN * T IS IN LAST COL 

CSH 

R3N * T BUT NO SH, TRY RULE 3N 
3 

B 

B 


» 


NOT Try TRY RULE 3J 
GET COL X+1 CODE 


» 


110 





ADDR 


29C7 
29C8 
29CA 
29CD 
29CE 
29CF 
29D1 
29D4 
23D5 
29D? 
29D8 
29DA 
29DD 
29DD 
29DD 
29DD 
29DP 
29E2 
2953 
29E5 
29E8 
29EA 
29ED 
29EE 
2SEF 
29F0 
29F1 
29F3 
29F6 
29F7 
29F8 
29FA 
29FD 
29FE 
2A00 
2A0]1 
2A03 
2A06 
2A06 
2A06 
2A06 
2A07 
2A08 
2A0A 
2A0D 
2A0E 
2A10 
2All 
2Al3 
2Al6 
2A16 
2A16 
2A16 
2Al1? 
2Al18 
2Al1A 
2AlD 


FE 
C2 
lA 
FE 
CA 
FE 
G2 
09 
99 
09 
TE 
FE 
FA 


7E 
FE 
FA 


36 
23 
36 
C3 


23 
TE 
PE 


09 


B2 


Ol 
06 


01 
78 
18 


tC 
78 


2c 
26 


04 
78 
37 
78 


ol 
16 


01 
78 
14 


1¢ 
78 


ol 
78 


18 
78 


ol 
78 
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OPERAND 

A,M * GET COL X STRESS 

a3K * T UNSTRESSED, TRY RULE 3K 
ve * GET COL X+1i STRESS 

R3N * SH UNSTRESSED, TRY RULE 3N 
m, 24 * SET COL X+l DUR TO 60 MSEC 
H 


M,28 * SEL COL X DUR TO 70 MSEC 
R3N 


DUR#70,50 MSEC <= /D,STRESS.GT.0,2H STRESS.GT.0/ 


CD 

R3M * NOT T OR D, TRY RULE 3M 
D 

CTERM 

R3N * 9 IS IN SAST COL 

CZH 

R3N * D BUT NO 2H, TRY RULE 3N 
B 

B 

B 

A,M * GET COL X STRESS 

ul 

R34 * D UNSTRESSED, TRY RULE R3L 
H 

A,M * GET COL X+l STRESS 

1 

R3N ¢ ZH UNSTRESSED, TRY RULE 3N 
B 

M,20 * SET X+l DUR TO 50 MSEC 

H 

M,28 * SET X DUR TO 70 MSEC 

R3N 


DUR#60,40 MSEC <a /T STRESS.ECQ.0,SH STRESS.£Q.0/ 


ve * GET COL X+i STRESS 

aN * SH IS STRESSED, TRY RULE 3N 
N16 * SET COL X+1 DUR TO 40 MSEC 
M2 * SET COL X DUR TO 60 MSEC 


DUR#40,30 MSEC <= /D STRESS.EQ.0,2H STRESS.EQ.0/ 


B3 E LINE LABEL OPCcD 
5710 MOV 
5720 Cer 
2A 5730 Ju 
5740 INX 
5§750 MOV 
5760 CPI 
2A 5770 JM 
5780 DAD 
5790 MVI 
5800 DM X 
5810 MVI 
2A 5820 JMP 
5830 * 
5840 * 
$350 * 
5860 R3J CPr 
2A 5870 JNZ 
5880 LDAX 
5390 CPI 
2A $990 JZ 
5910 CPt 
2A $920 JNZ 
$930" DAD 
5940 DAD 
5950 DAD 
5969 MOV 
5970 CET 
2A 5980 Ju 
5990 INX 
6900 MOV 
6010 CPI 
2A 6020 JM 
6030 DAD 
6040 MVI 
6050 DT X 
6060 MVI 
2A 6070 JMP 
60480 * 
6090 * 
6100 
6110 R3K INX 
6120 MOV 
6130 CPI 
2A 6140 JP 
6150 DAD 
6160 MVI 
6170 DCX 
6189 MVI 
2A 6190 JMP 
6200 * 
6210 *¢ 
6220 * 
6230 R3L INX 
6240 MOV 
6250 CPI 
2A 6260 JM 
6270 DAD 


A * GET COL X+1 STRESS 


Dwme?r a 


nee 





ADDR 


2AlE 
2A 20 
2A21 
2A23 
2426 
2426 
2426 
2A26 
2A 26 
2A 28 
24 28 
2A42D 
2439 
2432 
2435 
2438 
2439 
24 3B 
2A3E 
2446 
2443 
2446 
2447 
2449 
2A4C 
2A4E 
2451 
2A54 
2455 
2A°7 
2A5A 
2A5C 
2A5F 
2461] 
2464 
2A66 
2469 
2A6C 
2A6D 
2A6E 
2A6F 
2A 70 
2472 
ZA73 
2A75 
2478 
2478 
2478 
2478 
2A7B 
2A7C 
2A7D 
2AT7E 
2480 
2483 
2A86 
2A87 


oe. 


46 
28 


C3. 


2A 
09 
09 
TE 


CA 
2A 
28 
72 


82 
oc 


10 
78 


24 
25 
46 
26 
54 
78 
27 
6C 
2B 
DD 
28 
6C 
2c 


DD 


Oc 


0c 
BD 


00 


20 
00 


B3 £ LINE 


2A 


2A 
2A 
2A 
2A 
2A 
24 
2A 
2A 
2A 
2A 
2A 
2A 
2A 


2A 
2A 


2A 


35 


2A 
35 


6280 
6290 
6300 
6310 
6320 
6330 
6340 
63590 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6439 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6690 
6700 
6710 
6720 


LABEL 


a @ee & 


3M 


RIM 2 


RIM 3 


R3M4 


R3M5 


6.410°°* 


6740 


= DUR*0.5 


6750 * 


6760 
6770 
A789 
6790 
6800 
6810 
6820 
6839 
6840 


RIN 


OPCD 


MVI 
OrXx 
MVI 
JMP 


CPI 
Jz 
CPI 
J2 
CPI 
JZ 
JMP 
LDAX 
CPI 
JZ 
CPI 
JZ 
JMP 
LDAX 
CPI 
JZ 
CPI 
JZ 
JMP 
LDA X 
CPI 
J2 
CPY 
J2 
CPi 
JZ 
CPI 
JZ 
JMP 
DAD 
DAD 
DAD 
DAD 
MVI 
INX 
MVI 
JMP 


OPERAND 


M,12 
H 
M,16 
RIN 


CM 
R3M2 
CN 
RIM 3 
CNX 
R3M4 
R3N 

D 

cr 
R3M5 
CB 
RIM5 
ENDR43 
D 

CT 
R3M5 
cD 
R3IM5 
ENDR3 
D 

CK 
R3M5 
CKX 
R3M5 
CG 
RIMS 
CGX 
R3M5 
ENDR3 


el2 


crEowoon 


M,12 
ENDR3 


PAGE 12 


* SET COL X+#l DUR TO 30 MSEC 


* SET COL X DUR TO 40 MSEC 


DUR®30,30 MSEC <= /(M,P OR B) 


OR (N,T OR D) OR 


(NX,K OR KX OR G OR GX)/ 


& 
e 


& 


TEST 
IT*s 


IT's 


it's 


Izs 
IT*s 
It's 
IT's 
Irs 
IT's 
its 
ips 
its 


IT*s 
It’s 


COL X CODE 
M 


N 


NX 


M,P 

M,8 

SOMETHING ELSE 
N,T 

N,D 

SCMETHING ELSE 
NX, XK 

NX, KX 

NX,G 


xX, GX 
SOMETHING ESSE 


SET COL xX DUR TO 39 MSEC 


* SET COL X+l1 DUR TC 30 MSEC 


<= PLOS,OPTIONAL WDBOUND/PLOS/ 


LHLD 
DAD 
DAD 
MOV 
ANI 
JZ 
LHLD 
DC xX 
MOV 


MATPTR 


B 

B 

A,M 
PLOS 
ENDR 3 


* GET COL X FEATB 


* NOT A PLOSIVE, END OF GROUP 


MATPTR 


H 
A,” 


2 


* GET COL X~1l CODE 





ACDR 


2A88 
2A6A 
2AeD 
2A8E 
2A8P 
2A90 
2A91 
2493 
2A96 
2A97 
2A96 
2A99 
2A9B 
2A9E 
2A 9F 
2AAG 
2AA] 
2AA3 
2AA6 
2AA6 
2AA6 
2AA6 
2AA9 
2AAA 
2AAB 
2AAD 
2AB9 
248} 


2AB2 ° 


2AB3 
2AB4 
2AB 6 
2A389 
2ABA 
2ABB 
2ABC 
2ABE 
2AC1 
2A 2 
2AC3 
2AT 4 
2A76 
2AC9 
2ACC 
2ACD 
2ACE 
2ACF 
2AD9 
2AaDl 
2AD2 
2AD4 
2AD7 
2AD4 
2AD9 
2ADA 
2ACB 
2ADC 


B2 


04 


1 46 


04 
oF 


04 
A6 


29 
no 


00 
04 


DD 


04 
CZ 


04 
DD 


20 


09 


20 
24 


B3 E 


2A 


2A 


2A 


35 


2A 


2A 


35 


20 


LINE 


6859 
6860 
6870 
6489 
6399 
6900 
6910 
6920 
6930 
6940 
6950 
6960 
6970 
6939 
6990 
7000 
7010 
7020 
7930 
7940 
7050 
7369 
7070 
7039 
7990 
7100 
7110 
7129 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7239 
7240 
7250 
7269 
7210 
7289 
72990 
7300 
7310 
7329 
71330 
7340 
7350 
73690 
7370 
7380 
7390 
7400 
7410 


LABES 


R3N2 


* DUR*O.5 


RING 


R3INS 


PAGE i3 
OPZD OPERAND 


CPL CTERM 


Jz R3N3 * x 1S IST COL, TRY PLOS APTER 
MOV D,H 

MOV E,L 

DAD 8B 

MOV A,M * GET COL X-1 FEATA 

ANI  WDBND 

JZ RIN2 * NOT A WDBND, TEST FOR PLOSIVE 
XCHG 

DCX 4H 

MOV A,M * GET COL X-2 CODE 

CPI CTERM 

a2 R3N3 

DAD 8B 

DAD B * MOVE TO FEATB 

MOV AgM 

ANI PLOS 

JNZ R3N5 * OK, DO RULE 3N 


<2 /PLOS/OPTIONAL WDBOUND, PLOS 


SHLD MATPTR 


INX  H 

MOV A,M * GET COL X+l CODE 
CPI  CTERM 

a7 ENDR3 * X IS LAST COL, END GROUP 
MOV D,H 

MOV E,L 

DAD B 

MOV A,M * GET COL X+i FEATA 
ANI WDBND 

7 R3N4 * NOT A WDBND, TEST FOR PLOS 
XCHG 

INX H 

MOV A,M * GET COL X+2 CODE 
CPI CTERM 

Jz ENDR3 

DAD B 

DAD B * MOVE TO FEATB 

MOV A,M 

ANI  P4LOS 

J2 ENDR3 * NO, END GROUP 3 
SHLD MATPTR 

DAD 8B 

DAD B 

DAD 8B 

DAD B 

PUSH 8B 

MOV B,M * GET COS X DURATION 
MVI E—,20H * MULTIPLY BY 0.5 
CALL MUL 

XCHG 

DAD 4H 

DAD 4H 

XCHG 

MOV M,D * STORE NEW DURATION 
POP 8B 


Li3 





ADDR 


2ADD 
2A DD 
2ADD 
2ADD 
2AE0 
2AE1 
2AE4 
2AE5 
2AES8 
2AE9 
2AEA 
2AED 
2AED 
2AEC 
2AED 
2AED 
2AFO 
2AF1 
2AF2 
2AF 5 
2AF6 
2AF7 
2AF8 
2AF9 
2AFA 
2AFB 
2AFD 
2AF: 
2AFF 
2B02 
B03 
2803 


BL 


2A 
2a 
22 
EB 
2A 
19 


D2 


1 
19 
4D 
Zt 


TE 
Bd 
lf 
B7 
if 
CE 
77 
0D 
C2 
C9 


B2 


00 
00 
92 


39 


FB 


89 


09 


P5 


BI E 


35 
35 


35 


28 


36 


2A 


LINE 


7420 
7430 
7440 
7459 
7469 
74790 
7489 
7499 
7590 
7510 
7520 
7339 
7540 
7559 
7560 
Px70 
7580 
7590 
7609 
7610 
7620 
7639 
7640 
7650 
7669 
7670 
7680 
7630 
7700 
7710 
7720 
7730 


LABEL OPCD 


® 


PAGE 14 
OPERAND 


* END OF RULE GROUP 3 


® 


ENDR3 SHLD 
INX 
SHLD 
XCHG 
‘LHLD 
DAD 
XCHG 
JNC 


a 2 @ & 


LXI 
DAD 
MOV 
LXI 

ADJ DUR INX 
MOV 
ORA 
RAR 
ORA 
RAR 
ATI 
MOV 
DCR 
INZ 
RET 

® 


* END OF SECT3 


MATPTR 
H 
MATPTR 


NEGEND 
D 


R3L00P * LOOP AGAIN IF NOT DONE 


READJUST DURATIONS FROM 2.5 MSEC TO 10 MSEC 
(SO DUR UNIT = FRAME TIME) 


_D,-MATRIX-1 


D 
cor 


Se Md 


H, DUR 


Pas! 


rPPra 


* CLEAR CARRY, DIV BY SHIFTING 


0 * ROUND UP 1 IF CARRY SET 
M.A 


ADJOUR 


114 
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ADDR B81 B2 B3 E LINE LABEL OPCD OPERAND 

2000 0010 * GENFO 

2000 0020 * 

2009 9030 * SECTION 4 OF THE CSR1 SYNTHESIS BY RULE SYSTEM 
2000 9040 * 

2099 9050 * “SLOYD RICE, COMPUTALKER CONSULTANTS 
2009 0660 * VERSION 1.11 MAAY 30, 1977 
2090 9070 * 

2000 0080 stteertene 

2300 C)90 * 

2900 9100 * “OMMON JUMP ADDRESS TABLE 
2009 0119 * 

2099 0120 ComMJMP EQU S$. 

2999 0130 * 

2000 0140 CSRi DS 3 

2003 0150 PLAY DS a 

2006 0160 BUFACR DS 2 

2008 0170 BUFEND DS 2 

203A 0180 PVTAB DS 2 

209C 0190 MATPAK DS 3 

2 00F 0299 MATERR DS a 

2012 0210 RULES DS 3 

2035 0220 SETDUR DS 3 

2618 0239 RULES3 DS 3 

201B €3 10 28 0240 JMP GENFO 

291E <3 D9 2D 0250 JMP CLRBUF 

2024 026) GENPRM DS 3 

2024 0270 MUL DS 3 

2027 0280 DIV DS 3 

202A 9290 DUMMY DS 16 

203A 5300 * 

203A 0310 *eteeerene 

203A 0320 * 

203A 0330 * COMRAM ORIGEN DEFINITION 
203A 0340 * 

203A 0350 ORG COMJMP+1590H 
3590 9360 COMRAM EQU ) 

3500 0370 * 

3509 0380 * CSRi SYSTEM RAM SPACE DEFINITION 
3500 0390 * 

3590 0400 MATPTR DS 2 

3502 0410 NEGEND DS 2 

3504 0420 MATRIX EQU 3 

3504 0439 MATLEN EQU 95 

3504 0440 PHCODE DS MATLEN 

3563 9450 FEATA DS MATLEN 

352 9460 FEATB DS MATLEN 

3621 0470 STRES- DS MATLEN 

3680 9480 DUR DS MATIEN 

360F 9490 MATFEND ECU $ 

36DF 0500 B3UFPTR DS 2 

36E1 0510:-% 

36E% 0520 * GENFO (LOCAL) RAM WORKSPACE 
36E1 0530 * 

36E1 0540 STRSX DS 1 

36E2 0550 DURX DS 1 

36E3 9560 DURX4 DS 1 

36E4 0570 HPO DS 2 


es 





ADDR Bl B2 B3 E LINE 


36E6 
36E7 
36E9 
36EB 
36ED 
S6EF 
36F1 
36F1 
36Fi 
36F] 
36F1 
36F1 
2B 10 
2B10 
2B 10 
2B10 
2810 
2B10 
2810 
2B10 
2B 10 
2B10 
2B10 
2Bi0 
2B10 
2810 
2B10 
2B10 
2B10 
2B10 
2B10 
2B13 
2B14 
2817 
2818 
2B1lA 
2B1e 
2B1D 
2BiE 
2821 
2B22 
2B25 
2826 
2B27 
2B28 
2B 29 
2B24 
2B 2B 
2B 20 
2B 2D 
2B2E 
2B2F 
2B 32 
2835 
28 36 


2B39 2A 


2B 3C 


21 
99 
22 


09 


06 
OB 
09 
a0 
lA 


DF 


EB 
SE 


ED 
08 


20 


00 


2B 


36 


36 
al 


46 
20 


0580 
0590 
0690 
0610 
C629 
0639 
0640 
0650 
9669 
0670 
0680 
0694 
9790 
0710 
0720 
0730 
0740 
0750 
0769 
0770 
0789 
0794 
0890 
0810 
9820 
0839 
9840 
0859 
9860 
0870 
0889 
0890 
0900 
0910 
0920 
0939 
0940 
0950 
0960 
0970 
0980 
0990 
1009 
1010 
1020 
1030 
1044 
1059 
1069 
1070 
1089 
1090 
11990 
Li10 
1120 
ee 
1140 


LABEL 


FTERM 
DELTA 
SD 
NEGBUF 
NEGPSE 
NEGBID 
ie 


Rekekke eee 
* 


* GENFO 
a 


SECTAD 
* 


Thee nee 
a 

* PHONEME 
a 

CPER 
CQUEST 
CTERM 


” 


* FEATURE 
a 

VOWEL 
wDBND 
VOICE 


® 
Ree eR Kee 
* 


GENPO 


OPCD OPERAND 


DS 
DS 
DS 
DS 
DS 
DS 


ORG 
EQU 


MA RS Nh PO b 
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TCOMJMP+0B 10H 


$ 


CODE DEFINITIONS FOR GENPO 


EQU 
EQU 
ECU 


LABEL 


ECU 
EQU 
EQU 


LHLD 
XCHG 
4) 
DAD 
MVI 
Dx7 X 
MVI 
DCR 
JNZ 
INX 
SHLD 
MOV 
CMA 
MOV 
MOV 
MOV 
CMA 
MOV 
MOV 
DCX 
DX 
SHLD 
UXI 
DAD 
SHLD 
SHLD 
DAD 


1 
2 
4 


DEFS FOR GENFO 


80H 
4 
408 


BUF ADR 


te 
te 


~ 
Ne] 


ee ie ae 
f.S © 


7. 


Cc 
oO 7 
3 
a 


x= 


NEGBUF 


4H,-9*18 


B 
NEGPSE 
BUPEND 
B 


116 


# 


” 


GET (BUPADR) IN DE 


CLEAR FRAME 1 


* POINT TO PU BYTE IN FRAME 1 


® 


* 


NEGBUF == (BUFADR) -3 


NEGPSE = -ACDR CF PO PARA™ 
IN LAST FRAME OP INITIAL PAUSE 
GET LAST AVAILABLE BUPFER LOC 





ADOR 


2830 
2B3E 
2A41 
2844 
2845 
2846 
2847 
2844 
2B49 
2B 4A 
2B4B 
2A 4C 
2B4D 
2B4E 
IB4E 
2850 
2651 
2B54 
285) 
235A 
2BSA 
2B5A 
265A 
2BSA 
2B5A 
2B5A 
2B5A 
2BSA 
2B 58 
2BSE 
2061 
2B62 
2863 
2864 
2865 
2866 
2Bo? 
2869 
2B6C 
2B6D 
2B6E 
2B71 
2872 
2874 
2876 
2879 
2878 
2B70 
2580 
2680 
2B 80 
2R 60 
2880 
2H8k 
2Bu4 
2BaS 
2888 


Bl] 82 83 E LINE 


EB 
ral 
cn 
54 
SD 
29 
29 
29 
19 
OB 
73 
95 
6F 
18 
gC 
67 
22 
21 
22 


7B 
32 
AF 
U1 
2A 


ug 
27 


EF 


vO 


UU 
SF 


40 


% 
4. 


Oe 


; Ol 


80 


3 
1 


Eo 


F? 
OF 


VO 
20 


16 


35 


35 
vO 


2c 


36 


28 


36 


PF 
36 


1150 
1160 
1170 
Lise 
11990 
1200 
1210 
1220 
1230 
1240 
1250 
1200 
Y270 
1280 
1290 
1300 
lilo 
1320 
Vai 
1340 
1350 
1 30u 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
148o 
1490 
1500 
islu 
1820 
$30 
1940 
isso 
1560 
1570 
1580 
1$90 
1600 
lolly 
1620 
1630 
1040 
LoS 
1660 
1670 
1640 
1690 
1700 
1710 


LAREL 


* ¢ 2 ® 


Le] 
z 
oO 


XCHG 


LXl 


CALL 


MOV 
MOV 
DAD 
DAD 
DAD 
DAD 
OCX 
MOV 
SUB 
MOV 
MOV 
SB 
MOV 


SHLO 


Ux! 


SHLO 


OPC od 
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OPERAND 

H,9 

DIV * DIVIDE AVALLABLE SPACE BY 9 
D,# * IGNORE REMAINDER 

E,L * MOVE MAX FRAME COUNT TO DE 
H 

H 

i 

D (HO) = 9*FRAME COUNT 

fp * (BC) = -~(PUPADR)-2 

pe 

us 

eA 

A,F 

i 

HA 


NEGAND * +{(BUPADR)-2-9*MAX FRAME CNT 
H,MATRI X41] 
MATPTR * POINT TO MAT COL 2 (AFTER €) 


EACH PASS THRU FULCOP GENERATES FU DATA INTO 
FRAMES I+] THRU [+DURATICN X, CORRESPONDING TO 
THE PHONEME IN MATRIX COLUMK X. BUFPTR ALWAYS 
POINTS TO FU({I) AT THE BEGINNING OF THE LOOP. 


LOOP NOP 
LHUD 


uXl 
MOV 
DAD 
MOV 
DAD 
MOV 
DAD 
ANI 
JNZ 
DAD 
MOV 
STA 
MOV 
MVI 
CPl 
Jz 

MVI 
CPL 
JINZ 


. * BREAKPOINT LOC 
MATPTR 

B,MATLEN 

S.= * GET COL X CODE IN € 
8 

D,M * GET COL X FEATA IN D 
B 

AM " “S°GET TOL X FEATS IN A 
B * MOVE PTR TO STRESS X 


VOICE 

VOICED * IT'S A VOICED PHONEME 
B 

AM 

DURX * SAVE DURATION X 

A,£ 

E,-40 * TERMINAL DROP IF °," 
CPER 


ENDS : 

E, 40 * TERMINAL RISE IF *2° 
CCUEST 

NOFU 


COMPUTE PHRASE-TERMINAL Fu CHANGE 
ENTER WITH FU OFFSET IN £ 


a 


MOV 
STA 
XRA 
LXI 


a 


LHLO 


A,E 

FTERM * SAVE FO CHANGF VALUE 

A 

nr,-9 

BRUFPTR * SCAN BACK FOR LAST NON O FU 


Lay 





ADOR 


2888 
28 8C 
28 SP 
289 
2891 
2094 
2895 
2098 
2399 
28 9C 
28 9F 
2BA0 
2BA2 
20A5 
2BA7 
2BAA 
2BAC 
2RAF 
2831 
28E2 
<BBS 
28B6 
2BB8 
2889 
208A 
2888 
2BBC 
2080 
2BBE 
2B8F 
2BC0 
20¢1 
2Be4 
2BC5 
2BC6 
2808 
2nc9 
2BC¢ 
2BCD 
20CF 
28D0 
2BD1 
2B8D4 
2B05 
20D6 
2RDY 
2BDA 
2BD8 
2B0C 
2B0E 
28DF 
Post 
2BE4 
2BE5 
2BE6 
2BEY 
2BEA 


B2 


- ) 8 


EB 
13 


8B 
E6 


UF 
UP 
Bl 
7D 
Bl 
70 
E6 


1D 


ED 


FF 
BS 


FF 


DS 


Jo 


00 
2? 


FO 


a3 


28 


28 
28 


28 


46 


46 


28 


36 


20 


“20 


28 


E SINE 


1720 
41730 
1740 
1750 
1760 
1770 
1780 
1790 
1300 
181d 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
130V 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
19380 
1990 
2000 
2010 
2020 
2030 
2040 
20590 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
7160 
2170 
21450 
2190 
2200 
2210 
2220 
22130 
2240 
2250 
2260 
2270 
2280 


LABEL 


ENDS] 


RAMP 


RAMP] 


RAMP2 


HAMP } 


OPCD 


ORA 
NZ 
DAD 
XCHG 
LHLD 
DAD 
JNC 
XC HG 
JMP 
~DA 
ADD 


CMA 


OPE RANO 


M 
RAMP 
B 


NEGBUF 
D 
NOFY 


ENDS] 
FTERM 
M 

15 
RAMP1 
A,i5 
RAME2 
125 
RAM P2 
A,125 
M 
FTERS: 


8,29 


2B 


OoO,r>r>oD 


A 

C,A 
NEGPSE 
D 

L 
A, OF FH 
if 
RAMP 3 
Le 
H, OF FH 
D 

H 
FTERM 
CA 


$+5 


alae 
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FOUND A NON J VALUE 


HIT FRONT OF SUFFER, EXIT 


NON O FU + CHANGE 


FINAL FO < 15, MAKE [IT 15 


FINAL FO > 125, MAKE IT 125 
THE REAL FINAL FO OFFSET 
END-OF-RAMP ADDR TO OE 

TRY TO MAKE A 290 MSEC RAMP 


TENTATIVE RAMP CENGTH 


-9"*TRL INTO A AND C 


AVAILANLE SPACE IN HL 


NO ROOM, SHORTEN RAMP 


DEGIN=RAMP ADOR, SAVE IT 


OFPSET IS + 


OFFSET IS +, MAKE IT + 


256*OFFSET INTO DOF 


RAMP FRAME COUNT IW HL 


OFFSET IS +, OK 
OFFSET IS -, MAKE DELTA - 





ADDR 


2BEB 
22eC 
2BED 
2BEE 
2BEF 
2BFO 
2BF 3 
2BF6 
2BF9 
2BFA 
2BFD 
2BFE 
2BFF 
2€0C 
27203 
2004 
2005 
2706 
2eC} 
200A 
2C 0B 
200c 
20D 
2710 
2043 
26.3 
2G13 
2Ci3 
2716 
2ck) 
2019 
Z2e16 
2ClF 
222 
2722 
222 
2022 
ao22 
2€ 22 
22.25 
2724 
2725 
Ziad 
20 29 
22 28 
2°28 
2°, 2F 
2039 
233 
2 36 
2038 
238 
ZG3€ 
2C 3D 
2C AE 
2°38 
2€ 40 


B2 


E? 
00 
FD 


E? 


09 


Gc 


F9 
E? 


E2 


95 
DF 
12 
E7? 


E3 


BIE 


36 
28 
36 


9 


2B 
zc 


36 


36 
2D 


36 


ze 
36 


36 


36 


wINE 


2290 
2300 
2310 
2320 
2330 
2340 
Z350 
2369 
2370 
2380 
2390 
2460 
2410 
2420 
2439 
2440 
2450 
2469 
2470 
2483 
2490 
2500 
2510 
2920 
293C 
2540 
2599 
2560 
2570 
2580 
2990 
2690 
2610 
2620 
2630 
2640 
2650 
2660 
2679 
2680 
2699 
ec 
ZT 5O 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2320 
2330 
2840 
2850 


& 


* 
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DELTA=2 56 *OFFSET/RAMP LENGTH 


SAVE BUFFER POINTER 
DIF=DIF+DELTA 

DIF TO STACK 

BUFFER PTR TO DE 
UPDATE BUFFER PTR 
DIF TO DE 
FC2OLDFO+DIF/256 


IT* 0, DON'T CHANGE IT 


ARC TO STRESS 2 LEVEL 


PARABOLA PEAKS AT END OP PHON 


(5) =MATLEN 


POINTS TO STRESS X 


* 


GET STRESS 2% IN E 


GET DUR X & SAVE IT 
GET FEATA X 


X NOT A VOWEL, TRY X+1 
X IS VOWEL, SEE IF STRESSED 


NO, TRY X+l 
SAVE STRESS VALUE 


GET DURX AGAIN 
DIVIDE IT BY 4 


ADD EITHER O OR DURX 


LABEL OPCD OPERAND 
MOV H,A 
MOV A,L 
CMA 
MOV L,A 
INX tH 
RAMP 4 SHLO DELTA 
LX1 D,O 
JMP RAMPS+4 
RAMPS PUSH 4H 
LHLD DELTA 
DAD D 
XTHL * 
XCHG * 
Ley 9 H,9 
DAD D 
POP D 
MOV A,M 
ORA A 
Jz $+5 
ADD D 
MOV MA 
DCR B 
JN2 RAMPS 
JMP ENDFO 
& 
* UNVOICED PHON, GENERATE 
 d 
NOFO LDA DURX 
MOV C,A 
MVI B,9S 
LHLD BUFPTR 
CALL FPARAB 
JMP ENDF9 
 d 
* GENERATE FO FCR VOICED PHONS 
* ON ENTRY: (D)2FEATA X, 
& if 
: 6 
VOICED MOV E,M 
DAD B 
MOV A,B 
STA CURX 
MOV A,D 
ANI VOWEL 
JZ VNEXT 
MOV A,E 
ORA A 
JZ VNEXT 
STA STRSX 
MVI B,O 
UDA DURX 
VSTRS ORA A 
RAR 
ORA A 
RAR 
ADD B 
STA DURX4 


119 


EITHER DURX/4 OR DURX+DURY/4 





ADDR 


2043 
2€ 44 
2747 
2C 48 
2° 4B 
2C4E 
20 4F 
2€52 
2253 
2756 
257 
2€58 
2° 5B 
22 5C 
2G 5E 
2760 
2€63 
27263 
2€63 
2€63 
2C63 
2C 66 
2C67 
2068 
2C 6B 
2C 6D 
2€70 
2G71 
2072 
2€73 
2074 
2076 
2079 
2C7A 
2073 
2270 
2780 
2C8i 
2084 
2C85 
2637 
278A 
2 3B 
2C8¢ 
28D 
2OcE 
2091 
2094 
2095 
2796 
2799 
2C 9A 
2C9B 
2C9E 
2C9P 
2CA2 
2CA3 


2A 
TE 
B7 
C2 


2A 
=J 
54 


TE 
FE 
CA 
09 
1s 
E6 


EB 
fee 
TE 
E6 
CA 
99 


TE 
B? 
CA 
32 
09 
4E 
3A 
47 
84 
32 
EB 
22 
719 
3 


B2 


El 


DF 
12 


E3 


E2 


El 
7F 


E? 


DF 


6D 
45 
00 


04 


A6 


04 


70 


80 
A6 


A6 


Ei 


E2 


E2 
00 


3B 


B3 E LINE 


36 


36 
2D 


36 
36 


36 
2D 


2C 


36 


35 


2c 


2c 
36 


36 


36 


35 


3 


2360 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2959 
2960 
2970 
2980 
2990 
30090 
3010 
3920 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
a249 
3120 
3130 
3140 
3159 
3169 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
33390 
3390 
3400 
3410 
3420 


LABEL 


CURRENT 
IPF NEAT 


VNEAT 


VNXTL 


VN XT 2 
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MOVE STRESS INTO B 
COMPUTE FRONT OP PARABOLA 


ERROR RETURN 


FULL 


DUR - FRONT DUR INTO C 


COMPUTE BACK OF 
ERROR RETURN 


PARABOLA 


VOICED PHON IS NOT A STRESSED VOWEL 


OPCD OPERAND 
MOV Bre 
UDA STRSX 
MOV B,A 
SHLD BUFPTR 
CALL FPARAB 
RNZ 

LDA DUR X4 
MOV B,A 
LDA DURX 
SUB 3 

MOV C,A 
..DA STRSX 
MOV B,A 
CALL BPARAB 
RNZ * 

JMP ENDFO 
ONE IS, 

SHLD 6 BUFPTR 
MOV A,M 
ORA A 

JNZ $+5 
MVL M,69 
LHLD MATPTR 
INX H 

MCV D,H 
MOV E,L 
MOV A,M 
ePl CTERM 
JZ DOWNDR 
DAD B 

MOV A,™ 
ANI WDBND 
JZ VWNXT2 
XC HG 

JMP VNXT1 
MOV A,M 
ANI VOVIES 
JZ DOWNDR 
DAD B . 
DAD B 

MCV A,M 
ORA A 

JZ DOWNDR 
STA STRSX 
DAD B 

MOV Con 
LDA DURX 
MOV B,A 
ADD Cc 

STA DURX 
XCHG 

SHLD MATPTR 
MOV a,c 
JMP VSTRS 


120 


GENERATE PARABOLA ACROSS BOTH 


GET LAST FO OF PREV PHON 


LAST FQ WAS 0, MAKE IT 69 


GET NEXT COL CODE 


END OF MATRIX, FINISB X 


NOT A WORD ROUNDARY 


* X+l1 IS WDEOUND, BUMP AGAIN 


*<GET CGE 


Y FEATA 


Y NOT A VOWEL, DOWNDRIFT X 


GET COL Y STRESS 


Y IS VCWEL BUT NOT STRESSED 


GET COL Y DURATION 


DURX#DUR X + DUR Y 


MOVE MATPTR UP TO COL Y 
GET COL Y DURATION 





ADDR 


2CA6 
2CA6 
2CA6 
2CA6 
2CAY9 
2CAC 
2CAD 
2CAE 
2CBl 
2CB2 
2CB4 
2CB5 
2CB6 
2CB? 
2CB8 
2CB9 
2CBA 
2CBB 
2256 
2CBD 
Z2CBE 
2CC0 
2Cci 
20C2 
2cc3 
20C4 
20G) 
2€C6 
2CC7 
2ccB 
z2Cc9 
2CCA 
2CCB 
2Ccc 
2€CD 
2CDO 
2@p1 
2CD2 
2€03 
2CD4 
2CD? 
2CD8 
2CD9 
2CDC 
2CDD 
2CE0 
2CeEl 
2G62 
2CE3 
2CE6 
2CE?7 
74s 
2CE7 
2CE7 
2CEA 
2CED 
2CEE 


Bl 


22 


23 
22 


B2 


00 
7 


OF 
00 


07 


58 


09 


EF 


AC 


BS 


DF 
90 


09 


B3.£ 


35 
Ol 


36 


ol 


00 


36 


2D 


2C 


36 
35 


35 


LINE 


3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3609 
3610 
3620 
3630 
3640 


LABEL 


® 


* LEP 


* 


DOWNDR 


DWN1 


3650. . 


3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
38 30 
3840 
3850 
3860 
3870 
3889 
3890 
3900 
3910 
39:20 
3939 
3940 
3950 
3960 
3979 
3980 
3990 


® 


OPcD 


PO DRIFT 


LHLD 
UXT 
DAD 
MOV 
LHiD 
MOV 
MVI 
PUSH 
XTHL 
MOV 
DAD 
DAD 
DAD 
MCV 
RLC 
RLC 
REC 
ANI 
MOV 
CMA 
MOV 
MOV 
CMA 
MOV 
INX 
DAD 
DAD 
DAD 
DAD 
DAD 
DAD 
LxX1 
DAD 
MOV 
POP 
PUSH 
UX 
DAD 
XCHG 
~HLD 
DAD 
JC 
XCHG 
MOV 
DCR 
JN2Z 
POP 
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OPERAND 


DOWNWARD TOWARD 43 (100 HZ} 


MATPTR 

B,MATLEN*4 

B 

o,M * GET DUR X INC 

BUF PTR 

D,M * GET PREVIOUS FO IN D 
E,9O 

D 

* * BUFPTR TO STACK, GET FO 
A,H * SHIPT HL RIGHT 5 

H 

H 

H 

oH 

: 

H,A 

D,A * MULTIPLY (HL) BY 31 
A,L * IE. HL=(HL)*32- (BL) 
E,A 

D 

H 

H 

H 

i 

H 

D 

D,8*43 * ADD 43 SHIFTED 3 LEFT 
D 

A,H * NEW PO VALUE INTO A 
D * GET BUFFER PTR 

H 

H,9 

D * UPDATE TO NEXT PRAME 
NEGBND 

D 

BFERR-1 * SORRY, BUFFER IS FULL 
M,A * PUT FO IN BUFFER 

2 

DWN1 

D 


* END FOQLOOP, STEP MATRIX TO NEXT PHON 


® 
ENDFO 


SHLD 
LHLD 
INX 

SHLD 


BUPPTR * SAVE BUFFER POINTER 
MATPTR 

H 

MATPTR * INCREMENT MATRIX POINTER 


1ew 





ADDR 


2cPl 
2CF2 
2CP5 
2CF6 
2CF9 
2CFCc 
2CFD 
2D90 
2D01 
2D02 
2D05 
2098 
2D09 
2D0A 
2D0D 
2D0E 
2DOF 
2D10 
2D1i 
2D12 
2D12 
2D12 
2012 
2D12 
2D12 
2D12 
2D12 
2D12 
2D1i2 
2D12 
2D13 
2D14 
2D15 
2D16 
2Di7 
2018 
2018 
2D1E 
2D1F 
2D21 
2D24 
2D25 
2D 26 
2D27 
2D2A 
2D 2B 
2D 2C 
2D2D 
2D2E 
2D 2P 
2D30 
2031 
2D34 
2035 
2D36 
2D39 
2D3A 


Bl 


EB 
2A 
i9 
D2 
2A 
EB 
2A 
19 
EB 
21 
2D 
23 
EB 
2A 
13 
23 
72 
AF 
C9 


AP 


BS 
c8 
46 
ES 


C2 
cD 
$6 
3E 
€D 
TE 


47 
21 
72 
57 
69 


AF 
oF 
67 
CD 
29 
49 
Za 
60 
69 


B2 
02 
SA 
EB 


OF 


09 


06 


Ie 


05 
BP 


oar: 


27 


E7 


B3 E 
35 
2B 
36 
36 


00 
20 


20 


2D 


2D 


36 


20 


36 


LINE 


4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 


4090 


4190 
41190 
4120 
4130 


4140: 


4150 
4160 
4170 
4180 
4199 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4379 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 


* 


LABEL OPCD 


XCHG 
LHLD 
DAD 
JNO 
LHLD 
XCHG 
CHELD 
DAD 
XCHG 
uxt 
CALL 
INX 
XCHG 
LHLD 
MOV 
INX 
MOV 
XRA 
RET 


trtrktrktt t 


t 


* 
a 
® 
a 
& 
& 
EF 


F 


OPERAND 


NEGEND 
D 

SOLOOP 
NEGBUF 


BUF PTR 
D 


H,9 
DIV 
H 


BUPADR 
M,E 

| 

M,D 

A 


* 
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THERE'S MORE TO THIS MATRIX 


BUPFER SPACE USED /9 
= OVERALL FRAME COUNT 
BUT THAT WAS 1 FRAME SHORT 


PUT IT IN IST 2 BYTES OP SUPPER 


PARASOLA GENERATOR SUBROUTINES 


PPARAB 


CONSTRUCT FRONT PARABOLA CURVE UP TO PEAK 
ON ENTRY: (B)*STRESS xX, 


Hi 


PARAB XRA 
CMP 
RZ 
MOV 
PUSH 
CMP 
JNZ 
CALL 
MOV 

PRB1I MVI 
CALL 
MOV 
SUB 
MOV 
uXI 
MOV 
MOV 
MOV 
INR 
XRA 
MOV 
HOV 
CALL 
DAD 
MOV 


PARAB 2 SHLD 


MOV 
MOV 


A 
Cc 


+43 
> 


Ze 


(C) sPRAME COUNT TO PEAK 


POINTS TO FO IN LAST FRAME OP PREV PHON 


RETURN IP N (FRAME COUNT) #0 


GET PREV FO INTO D 


PREV FO WAS NON-9, USE IT 
PREV WAS 0, GET ONE FROM TABLE 


* INDEX TO 2ND COL OP TABLE 
* GET FO LEVEL AT PARAB PEAK 


* 


SET HPO TO STARTING PT 


DELTA#2* ( (256*DIP) /(N+1)) 
MOVE PRAME COUNT TO E 


MOVE B & C OUT OP MUL‘'S WAY 





ADDR 


2D 3B 
2D3C 
2D 3D 
2040 
2041 
2D42 
2044 
2047 
2043 
2049 
2D4A 
2D4B 
2D4C 
2D4D 
2D4E 
2D4F 
2052 
2053 
2D56 
2057 
2D58 
2D5B 
2050 
2D5D 
2D60 
2D61 
2064 
2065 
2068 
2069 
2D6C 
2D6D 
2070 
2D71 
2074 
2075 
2078 
2079 
2D7A 
2078 
2D7E 
207F 
207P 
2D7F 
2D7F 
2D7F 
2D7F 
2D7F 
2D80 
2D81 
2082 
2083 
2084 
2086 
2089 
2D8A 
2D8D 


AF 
B9 
C38 
56 
ES 
aE 
a) 


a2 
96 


B2 


24 


00 
27 


ES 


E4 


a9 


EF 
AD 
E7 
E4 
E4 
E9 
E? 


57 


0A 
BF 


E> 


B3 E CINe 


20 


20 


36 
36 


2D 


20 
36 


4570 
4580 
4590 
4600 
4619 
4620 
463C 
4640 
4650 


~ 4669 


4670 
4680 
4690 
4710 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
489C 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
3010 
5029 
5030 
5940 
5059 
5069 
5970 
5080 
50390 
5109 
5110 
5120 
5130 


LABEL 


PARAB 3 


ae 8 & 


» 


a? 


BPARAB 


BPARAB 
CONSTRUCT BACK PARABOLIC CURVE DOWN FROM PEAK 


ON ENTRY: (B) STRESS XK, 


OPCD 


MOV 
INR 
CALL 
MOV 
XCHG 
MVI 
CALL 
DAC 
MOV 
CMA 
MOV 
MOV 
CMA 
MOV 
INX 
SHLD 
XRA 
STA 
POP 
XCHG 
UXT 
DAD 
XCHG 
SHLD 
DAD 
Jc 
PUSH 
LALD 
XCHG 
SHLD 
DAD 
SHLD 
4OV 
LHLD 
DAD 
SHLD 
POP 
MOV 
DER 
JNZ 
RET 


Lg 
ant 


XRA 
CNP 
RZ 
MOV 
PUSH 
MMVI 
CALL 
MOV 
STA 
SUB 


OPERAND 


B,E . 
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GET EITHER W OR N=] FROM E 


MUL * DENOM=(B) *((B)-1) 


NEGBND 

D 

BFERR ai 
D 

DELTA 


HFO 

D 

HFO . 
B,H . 
SD 

D 

DELTA * 
H * 
M,5 

c 


PARAB 3 


DIV * $=2*((256*DIF) /DENOM) 


CLEAR LS PART OF HFO 


MOVE BUFFER PTR TO NEXT FRAME 


RAN OUT OF ROOM! 


HFOsHFO+DELTA 
H CONTAINS NEW FO VALUE 


DELTA#=DELTA+S 
GET BUF PTR BACK 


(C) =FRAME CNT DOWN FROM PEAK 


POINTS TO FO PARAM AT PEAK 


A 
C £ 


RETURN IF FRAME COUNT #0 


D,M * GET PREV FO VALUE 


H 

A,10 
GETFO * 
A,D 

HFO+1] =i 


es 


SET HL TO END=<-PARAB LEVEL 


SAVE OLD FO 





ADDR 


208E 
2D8F 
2B92 
2093 
2094 
2D97 
209A 
2098 
209C 
2D9F 
2D0A0 
2DAl 
2DA4 
2DA5 
2DA8 
2DA9 
2DAA 
2DAB 
2DAC 
2DAC 
2DAC 
2DACc 
2DAD 
2D0B0 
2DB2 
2DB3 
2DB3 
2CB6 
20B9 
2D0BC 
2DBE 
208F 
2DBF 
2DBF 
2DBF 
2DBF 
2DBF 
208F 
2DBF 
20C2 
20¢c3 
2D74 
2DC5 
2DC7 
2DC 8 
20C9 
2DCA 
20CA 
200A 
2DC* 
2DCB 
2DCC 
2DCD 
2DCE 
2DCF 
2DD0 
2001 


21 
80 
85 
6F 


8C 
67 
e9 


63 
59 
54 
52 
Si 


63 
5€ 


B2 


00 


36 
ES 


09 


EF 


AD 


C9 


00 


B3 E LINE 


00 


2D 
36 


00 


36 


20 


2D 


46 
52 
35 


2D 


5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5289 
5290 
3300 
5310 
5320 
54120 


5350 
5360 
5370 
5380 
3390 
5400 


5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5519 
5520 
5539 
5540 
5550 
5560 
5570 
5580 
5590 
5690 
5610 
5620 
5630 
5640 
5650 
5660 
5670 


LABEL 


® 


OPCD 


MOV 
LXI 
MOV 
DCR 
JNZ 
LDA 
ADD 
POP 
UXI 
DAD 
XCHG 
CHLD 
DAD 
Jc 
XCHG 
MOV 


: XRA 


RET 
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OPERAND 

B,A * DIFF TO NeW FO INTO B 
E,C 

E 

PARAB2 * N>1, COMPUTE PARABOLA 
HFO+1] * N*l1, STORE i POINT 

B 

D 

H,9 * INCR PTR TO NEXT FRAME 
D 

NEGOND 

D 

BFERR * NO MORE ROON 

M,A 

A 


* ERROR SUBROUTINE 
si4¢ * 


BFERR 


BFTX 


qo) +2 28 2 © 2 & 


ETFO 


t 


ON RETURN, 


POP 
LXI 
ORI 
RET 


DT 


DB 


LAI 
ADD 
ADD 
MOV 
MVI 
ADC 
MOV 
RET 


C 


H, BFTX 


255 


* ENTRY HERE FROM DOWNOR 


"BUFFER FULL' 


ODH 


GET AN FO LEVEL FROM STRSFO TABLE (SET BL TO IT) 

ON ENTRY: 
A TESLS THE COLUMN, 
8B CONTAINS THE STRESS LEVEL 1-5 

HL PCINTS TO THE DESIRED ENTRY 


O=sSP, S53MP, lLOZEP 


H,STRSFO=1 


marci w 
or 


> 


* FO TABLE FOR DIFFERENT STRESS LEVELS 


STRSFO 


99 
89 
84 
82 
81 
108 


ae, 


94 


124 


=» 2 


® 


PARAB STARTING PT., STRESS 1 
S.P., STRESS 2 
ETC. 


PARAS MID POINT (PEAK) 





ADDR 


2002 
2DD3 
2004 
2005 
2DD6 
2DD7 
20038 
2DD9 
2DD9 
2DD9 
2009 
2DD9 
2DD9 
2DD9 
2DD9 
2DD9 
2DC09 
2DD9 
2D0C 
20DF 
2DE9 
2DE2 
2DE4 
2DES 
2DE6 
20E7 
2DE8 
2DE9 
2DEA 
2DEB 
2DEC 
2DED 
ZCEE 
2DEF 
2DF0 
2DFL 
2DF 2 
2DF 3 
2DF 4 
2DFS 
2DF6 
2DF7 
2DF8 
2DF9 
2D0FC° 
2DFD 
2DFD 


Bl B283 E 


so 
5B 
59 
4F 
4A 
47 
46 


06 20 
OB 00 


80 
AC 


E4 20 


LINE 


5680 
5090 
§790 
$710 
5720 
$739 
5749 
$759 
5760 
5770 
3780 
$790 
5990 
$81¢ 
$620 
5830 
5840 
5850 
$860 
58790 
5880 


6140 
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LABEL OPCD OPERAND 
DB 92 
DB 91 
DB 89 PARAR END POINT 
DB 79 
DB 74 
DB 71 
DB 70 
* 
Rerkrkerre 
* 
* CLRBUP IS CALLED BY GENPRM TO INITIALIZE 
* THE PARAMETER BUFFER (OR PART OF IT) 
* VALUES IN THE FO PARAMETER ARE NOT DISTURBED 
* 
* ON ENTRY: (BC)= THE # OF FRAMES TO INITIALIZE 
* STARTING WITH THE 2ND FRAME OF THE BUFFER 
* 
CLRBUP SHLD PUFADR 
LXI D,1il 
DAD D ' 
MVI 0,128 
MVI -E, 172 
CLOOP XRA A 
MOV MA * AV=0 
INX H 
INX  H 
“OV M,D * F1=122 
INX Hi 
MOV ,D * F2=128 
INX H 
MOV M,E * P3=172 
INX  H 
MOV M,A * AH=C 
INX  H 
“OV MA * AF=0 
INX 4H . 
MOV M,D * PR=i2a 
INX  H 
HOV M,A * AN=0 
INX 4H 
DCX 8B 
ORA 8 
ORA ¢ 
Jnz2 Loop 
RET : 
* 
* END OF SECTS 
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FAGE U4 


ACDR 61 Be 33 E CIE LACED OPCD UOPERANE 


2UC0 CC1Q * GENPRN 

2Uucv gcuZe * 

ZE8C esse * SECTION 3 OF THE CSki SYNTHESIS BY RULE SYSTE™ 
ZE0U evd4ce * 

2UeuU Bese * ULLCYO RICE, COMPUTALKER CONSULTANIES 
Z2GGC QUoe * VERSION i.¢¢ MAY 30, 1977 
2uuu OG7e * 

2UUC gUge tener teeee tte 

auc’ coIC * 

Z2UGe Cicu * COMMON JUMP ADDRESS TASLE 
2 34 Ciliv * 

£200 Qi 20 COMIMP ECU ? 

Z2ecu Vago * 

2220 Gide CSki US } 

zt 3 @15¢ PLAY DS j 

20eu Q16C BUFSDR CS 2 

2UVE Nive BOFLEN DE Z 

2CVA O19 PVTAB bS ie 

ZULu Ci9U AATPAR DS 3 

ZULF Q2Uad MATERK oS 3 

£012 G21 RULES oS 3 

2Ur4 C220 SETLUR Cs 3 

Zac C230 RULES 3 DS 3 

2uiB C240 GENFC DS 3 

2UiE C23 CLRBUF DS j 

2Ge) C3 LO.2Ze GZe Jee GOERS 

2224 CF iC 42 U27C JF hUS 

2027 C3 i3 32 U2bU JME vIV 

2U 2A CZ4e GETCNS DS 3 

20 2D OsCu PCUFI US 3 

Zu 30 2310 FITAR DS Zz 

232 8320 FZTAR DS 2 

2u34 CSIC FSTAR DS 2 

20 36 C34e AWUTAR oS Pi 

20 3u C35 FRANTAR CS 2 

2G5a Cz5G°% 

2U 34 g37¢ teetrtteeet tt 

2U 3A Osa * 

2u 56 Us9U * COMRAM ORIGEN DEFINITION 
2U 5A d4uu * 

ZU $A C4 GKG COAJMF+i5CCH 
S520 W420 COMNRAM ECU $ 

$528 Cg) 8 

350 C448 * CSail SYSTEM KAM SPACE DEFINITION 
$5UC w450 * 

7aUe C40 AATETR BS Z 

3302 C470 HEGEND DS 2 

3544 C4dU MATRIX ECU > 

35u4 9490 MATLEU ECU 95 

$e4 C5CL PHCODE bS NATLEN 

$563 051C FEATA OS MATLEN 

3502 C520 FEATS DS MATLEN 

Jo2i 0532 SIRES DS MATLEN 

Jour eS4c DUR DS MATLEN 

JoDF 355C MATEND ECU > 

J60F CSul BUFPTR DS Z 

VOEi U57C * 
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ADDK Bi 82 B83 E LINE LABEL OFCD OPERAND 
JOEL C560 * The NEXT 19 LOCATIONS ARE ACCESSED GY ROUTINES 
J6E1 esyc * IN SECYICK o AND MUST SOT BD KOVED 
JoEl OQ6LuCc * 

J6E1 G61e GCOLE DS i 

JOEL Co2C OFEATA DS i 

J6E3 8630 OFEATL DS i 

36E4 C640 ODUR DS i 

36E5 Q650 OCID 0S i 

36E0 Coat ORANK DS i 

36E7 !679 OPCT DS i 

J6Eb Qoed OTLMES DS nf 

JOEY C69gc * 

36E) u7UC CODEX DS i 

36EA Q7iC FLATAX D3 i 

SvEB 9720 FEATHX DS i 

JEL O739U CURXK DS i 

36ED C74 CLDK oS i 

JOEE C750 RANKX cs. i 

JOEF C76U FCTX DS i 

Jo#rU O77¢ ‘TIMESX Ds 4 

JoFi U7bC -* 

JuFh G79 BT DS i 

J6F2 QgUU FT DS i 

JOF 3 Gsit EC DS i 

JOF4 , az = 

3oF4 C332 * GENPRA (LOCAL) RAM WORKS PACE 
JOF4 C34dc 

36F4 C350 TARG cS i 

3OFS Cou BYVAL DS re 

J6Fu C&7e SD DS Z 

JoFB CBYC DELTA DS 2 

IGFA G39 PCOUNT cS i 

J6OFE 29CQ NTARGS DS i 

JoFC G91 ASPT DS i 

36FC a 

JoOFD UXze0 ereetrrrktrnre 

JoFD Oe 

JoFD Cy50 * GENPRM 

J6FD USEC * 

JoFCS C37e GRG COMIMP+UEULCH 
2ECe u3bC0 SECTAD ECU ? 

2ECLU cyyUe * 

Z2ELL pec taerankaaenke 

ZECeC 2uic * 

20 Lecze * PHONEME COCE UEFINITIONS 
2ECeU 2050 * 

2ZEUC : 1U4U CTERM ECU 4 

2EUC £050 Ce ECU 9 

2ECW iva: * 

2—ECr 1e70 * FCATURE CAGEL DCFINTY1LONS 
2EC4 usec *¢ 

2ECe a¥¥C LGWOKE ECU i 

2cGVU ait STOP ECU 3CH 

Z2ECC 1ii¢ ?PLos ccu 200 

Z2EuUC 1i2e PLOSA ECU iCH 

2ECce 1,3¢ * 


2ECo 1i4C * OUTPUT CHANNEL DEFINITIONS 


ef 





ADDR Bl] B2 B3 E LINE 


2E0C 
2ECV 
2£0C 
2Ev0 
2ECC 
2Ece 
2EcCc 
2ECe 
2ECu 
2ECe 
2EuC 
2EUe 
2ECC 
2Ece 
2Ecc 
2EC} 
2EC6 
2Eu9 
2E0C 
2EUF 
2Eiv 
2E12 
7.1 5 
2E ig 
2619 
7) po 
2E\F 
2E22 
2E22 
2E22 
2E 22 
2E22 
2E22 
2622 
2E22 
2E22 
2E25 
2E 28 
2E 2B 
2E2D 
2E3¢ 
2E 332 
Z2E35 
2E 3d 
2E38 
2E3D 
2E 4 
2E4C 
2E4C 
2648 
2E4¢C 
2E 4c 
2E43 
2544 
2E 47 
2E£ 48 
2E 42 


2i 
a2 
ay 
CD 
3A 
4F 
C6 
CD 
id 
ay 
ae 
ad 
22 


ii 
CD 
JA 
E6 
C2 
JA 
26 
CA 
3A 
E6 
CA 


3A 
47 
3A 
Bs 


DA 


Cs 
CC 
El 
2A 
E4 


CC 
iE 
F7 


DF 
Ca 
ce 


EY 
2A 
EA 
Ui 
7 
E3 
20 
4c 
EB 
Be 
30 


35 
35 
36 
2c 
36 


2c 
EF 
36 


35 


36 
36 


2E 
2£ 


115¢ 
116¢ 
aie 
128¢ 
1190 
12cc 
L2Ve 
4220 
$27 
124¢ 
i25¢ 
1200 
127 
12aC 
1239 
Lice 
j31¢ 
1320 
1330 
134 
1350 
1360 
Ti7C 
138¢ 
1390 
i4¢ce 
1410 
1420 
143¢e 
1440 
1459¢ 
1460 
1470 
1480 
1490 
iscyv 
1510 
1520 
£530 
154@ 
1550 
1560 
1570 
1580 
1990 
16vey 
1610 
io2e 
1630 
164¢ 
1650 
Loov 
1670 
168e 
1690 
17¢e0 
1710 
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LABEL OPCD OPERAND 
® 

CHANAV ECU C 
CHANF IL ECU 2 
CHANEF 2 EQU 3 
CHANF 3 ECU 4 
CHANAH EGU 5 
CHANAF ECU 6 
CHATIFFE ECU 7 
CHANAN ECU | 
& 


trtrtrrtirrtke 
* 


* GENPRMS SUBFOUTINE 


& 
GENPRM LXE H,MATRIX+i 
SHLD MATPTR * SET MATPTR TO COL 2 (SKIP #4) 
uXI D,OCOLCE 
CALL GETCNS * GET CONSTANTS FOR COL 2 PAUSE 
LDA ODUR ; 
MOV C,A 
MVI 8,0 
CALL CLRBUF * INITIALIZE THE 1ST FRAME 
LXI D,-9 
DAL D 
SHLD BUFPTR * SET BUFPTR TC LAST FRAME AV 
Xt H,MATRIX+2 
SULD “ATPTR * MATPTR PTS 10 1ST ACTUAL PHCN 
® 
& 
* DURING PROCESSING FOR EACH PHON, MATPTR INDICATES 
* THE CURRENT MATRIX COLUMN. BUFPTR IS THE PAKAMETER 
* BUFFER INDEX. IT CONTAINS THE ADDRESS OF THE AV 
# PARAMETER IN THE LAST FRAME OF THE PREVIOUSLY 
* PROCESSED PHON. 
id 
GPLOOP LXI D, CODEX 
CALL GETCNS * GET CONSTANTS FOR NEXT PHON 
LDA FEATAX 
ANI IGNORE 
JNZ ENCPRM * IGNORE THIS MATRIX COLUMN 
LDA CFEATB 
ANIL PLOS 
Jz NOPLOS * THE PRECEEDING WAS NCT A PLOSIV 
LOA FEATBX * PREVIOUS WAS PLOSIVE 
ANI STOP 
JZ SETASP * CURR IS -STOP, SET ASPIRATION 
& 
* NOPLOS IS THE MAIN GENERATOR LOOP FCR MCST 
* HON SECUENCES. 
* FORMANT TRANSITIONS ARE GOVERNED BY RELATIVE RANKS 
id 
NOPLOS LDA RANK X * COHPARE RANKS OF CURRENT 
MOV B,A 
LDA ORANK * AND PREVIOUS PHONS 
CMP 6B 
JZ ECRANK * RANKS ARE ECUAL 
Jc OLTCUR * OLD LESS THAN CURRENT 
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ADDR 


2E4E 
2E5i 
2E52 
_ 2654 

2E57 
2E59 
2ESA 
zE5D 
2E5C 
2E5D 
ZE 55 
2E61 
2664 
2E65 
2E07 
2E0A 
2E6D 
2E6D 
2E7U 
2E72 
2E75 
2E7¢d 
2E7A 
2E7D 
2E7F 
2E82 
2E85 
2E85 
2E8s 
2E89 
2E8B 
2E6E 
2E90 
2E91 
2E92 
2£93 
26594 
2E95 
2E96 
2E98 
2ESE 
2E9E 
2EYE 
2E9E 
2EAi 
2EA2 
2EAS 
2EA8 
2EAB 
2EAC 
2EAF 
2EB2 
2EB5 
2ED6 
2EBR9 
2EBC 
2eEBC 


B2 
Ed 


CF 
Pi 
Ue 


F 2 
E? 
QS 


F3 
YE 


Ey 
CF 
Fi 
CF 
F 2 
C2 
F3 
9E 
FC 
UF 


Cd 


Fi 
EF 
F3 


30 
Q2 
AE 
52 
C3 
34 


C4 
AE 


B3 E LINE 


Jo 


36 


16 
46 


46 
2 
16 


36 
Yo 


Jo 
2E 


36 


16 


- 


46 
16 
36 


20 
CJ) 
aC 
vd 
20 


ve 
zc 


172¢ 
1730 
174 
L75e 
176 
1770 
178C 
179¥e 
isua 
i8ic 
ld2e 
Lesc 
13490 
i350 
18bou 
187u 
Ludo 
1890 
19e 
19i¢ 
1¥2u 
193 
194 
19sec 
1900 
1970 
198C 
1y99C 
2caQ 
2€1¢ 
2020 
2030 
2040 
2050 
Z2¢6C 
287C 
2060 
2u9u 
2ice 
211¢ 
242 
213C 
2i4e 
21,54 
2160 
217¢ 
2180 
2190 
Z22U¢ 
2210 
2220 
2230 
224¢ 
225uU 
226 
2270 
22aC 


LABEL 


ECRANK 


OLTCUR 


* COMPUTE 


SETFOR 


CPCD OPERAND 


LDA 
MOV 
ANI 
STA 
MVI 
DAD 
DAD 
DAD 


.DAD 


MOV 
STA 
LDA 
CMA 
ADI 
STA 
JiaP 


LDA 
ANI 
STA 
CDA 
ANI 
STA 
MVI 
STA 
JMP 


LDA 
MOV 
ANI 
STA 
MVI 
DAD 
DAD 
DAD 
DAD 
MOV 
STA 
LDA 
STA 


OTIMES 


PC 
SETFOR 


OTIMES 
CEH 

BT 
TIMESX 
UFH 

fT 

A,2 

PC 
SETFOR 


TIMESX 
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* OLD GREATER THAN CURKENT 


* BACK TIME = OLD TPRI 


* FORWARD TIME = OLD TSEC 


* PC#i.C=-OPCT(BN PT RT OF EIT 2) 


* BACK TIME = OLD TPRI 


* FORWARD TIME * CURR TPRI 


* PC=.5 (BIN PT RIGHT OF BIT 2) 


* FORWARD TIME = CURR TPRI 


* BACK TIME = CURR TSEC 


* PC = CURRENT PCT 


& STORE 3 FORMANT PARAMETERS 


SHLD 
XCHG 
LAl 

CALL 
LHLD 
XCHG 
Lkl 

CALL 
LoD 
XCKG 
UX 

CALS 


FITAR 


B, CHANF 1 


GENF X 
fF 2TAR 


B, CHANF 2 


GELE X 
FITAR 


B,CHANP 3 


GENE X 


* COMPUTE & STORE AV 
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* SET FORAANT 1 


* SET FORMANT 2 


* SET FORMANT 3 





ae 


ADDR 


2EEC 
2EBC 
2E3E 
2ECi 
2EC4 
2EC? 
ZEC9 
2ECA 
2ECB 
2ECC 
2ECO 
2ECF 
2ED2 
2EC3 
2E05 
2EDS 
2EDS 
2E06 
2E08 
2ED9 
2EDA 
2EDO 
2EE" 
2EEC 
2EEU 
2EEL 
2EE2 
ZEES 
2EE8 
2EEB 
2EEC 
2EEE 
2EEF 
ZEFQ 
2EF] 
2EF 3 
2EF4 
2EF7 
2EFA 
2EFA 
2ZEFA 
2EFA 
2EFB 
2EFC 
2EFO 
2EFF 
2Fay 
2F 0} 
2FC6 
2&0? 
2F UA 
2FUD 
27CE 
2FuF 
2P1¢c 
2P13 
2P13 


Bl 


Ce 


2A 
JA 
16 
bl 
ly 
16 
F4> 


Cl 


Fi 
E6 
oa? 
a? 
AB 
<p 


F 
iB 


E6 
37 


2A 
ug 
iA 
Ci 
cg 
72 
30 
C2 


EC 
ec 


-~ 


Co 


05 
Cd 


ot 
2D 
48 
E9 


ac 


Co 
Cb 


EU 


a7 
DF 


EC 
Cy 


vo 


B3 E 


2 
20 
3o 


“yg 
iQ 


CQ 


2c 
28 
36 


Qo 
3C 


we 
-~ 
- 


2F 
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SINE CLABES OPCG OPERANO 

229uU * 

2300 SETAAP AVI B,U 

231¢ CALL PCBFT * SETUP PC,BT & FT WITH AV INFO 
2320 -GHLO AVHTAR 

Z33C LDA CCDEX 

2340 MVI 0o,¢ 

2350 MOV E,A 

2360 040 Cc 

2370 MOV A,M * GET AV/AH TARGET 6YTE 

23388) PUSii PSW 

2390 ANIL GFCII * MASK TO KEEP AV 

2400 OXI B,CHANAV 

24i¢ CALL GENAX * SET AMPLITUGE OF VOICING 
242¢c * 

2430 * CCIEFUTE & STORE AH 

2440 @ 

245U POP PSw 

2460 ANI CFI * NOW MASK TU KEEP AH 

247¢C ACO é 

2438 ADO A * MULT BY 4 

249C LX1 8, CHANAH 

258C CALL GENAX * SET AMPLITUCE OF HISS 

251¢c * 

252 * COMPUTE & STORE AF 

2539 *® 

254e MVI B,] 

29590 CALL PCHKFT ® SET PC, Cf & FT WITH AF [NFO 
256U LELO FRNTAR 

257¢C LOA CUBEX 

258C MCV E,A 

259C MVI o,¢ 

2022 DAD ') 

261¢ MOV A,M * GET FRIC/NASAL TARGET BYTE 
2o2e PUSH PSW 

2630 ANI iCcH * MASK TO KEEF AF TARGET 
204C ABO A 

205¢ Lxl B, CHANAF 

2660 CALL GENAX * SET AMPLI‘IUCE OF FRICATION 
zZ2o7u *¢ 

2bal * SET FF TO TARGET VALUE FOR TIME DURX 

2690 * 

27€C PUP PSW * GET FrIC TARC AGAIN 

271 Cox SF 

2720 DCX SF * EUT GCEAVE 11 IN THE STACK, TOO 
2736 ANIL CECH * KEEP FF TARGET 

274C HOV D,A 

2450 LAL B, CHANFF 

2760 ~ILG BUFPTR 

2770 DAD B 

276 SOA DUKX 

2790 oxl B,9 

2600 SETFP DAD B 

231C HOV M,O * SET FF OLRECTLY PRON TARGET 
282U DCR A 

23 3C JNZ SETFF 

284¢ * 

2650 * COMPUTE & STORE AN 


£30 





ADDR 


2Fi3 
2F13 
2F15 
2F18 
2F 19 
2Fic 
2FiF 
2F2U 
2F 22 
2F 23 
2F 24 
2F 25 
2F 26 
ere? 
2F 2A 
2F 2D 
2F 30 
2F3u 
2F3U 
2F 3u 
2F 30 
2F 3 
2F3C 
2F 33 
2F 35 
2F 30 
2F 34 
2F 32 
2F3C 
2F 3D 
2F3E 
2F 3F 
2F 4 
2F41 
2642 
2F43 
2F 44 
2F 45 
2F 40 
2F 44 
2F 45 
2F4C 
2F 4? 
ZF 5¢ 
ZF 3 
2F54 
2F 56 
2FS7 
2F5A 
2F 5A 
2E-A 
Z2E5A 
2F50 
2F SF 
2FP62 
2F 04 
2F 67 


Bi 


SE 
42 


32 
32 
Fl 
E6 
87 
&7 
&7 
87 
67 


vi 


wt 


C3 


3A 
FE 
b2 
JE 
b2 
3A 


B2 


C3 


El 


F2 
03 


ag 
C8 
aG 


Ej 
27 


QV 
36 


EE 
DF 
C6 
Ug 
24 


53 


EE 
U3 
a 
U2 
P3 
Ea 


BJ & LINE 


Jo 


36 


Jo 


32 


CY 


BC 


2? 


46 
2F 


30 
36 


2doU 
Zu7¢C 
268U 
2dYC 
2940 
29ie 
2920 
2930 
2340 
235C 
2900 
2970 
24aR 
299 
sUCL 
301¢ 
+020 
3030 
3240 
3050 
ae 
1C7e 
3C3V 
3090 
s1¢cU0 
3ii¢ 
3120 
3130 
314v 
4i50 
31love 
3170 
3ist 
3190 
3200 
7210 
322U 
3230 
324 
$2590 
3202 
3270 
3230 
3294 
3309 
13710 
332U 
333u 
334v 
TIC 


eset & 8 


LABEL 


FAGE V6 
OPCC OPERAND 


NVI A,3 * PC=.5 FOR NASAL 

STA i 

DOK A 

STA nT * BACK & FORW TIMES = 2 FRAMES 

STA FL 

POP PSw * GET NASAL TARGET 
- ANTI 3 

ACD A 

ACD A 

ADC “ 

ADD A 

ADD A * BULT BY 32 


HANDLE 
SETASP 
AND IF 


ETASP 


BURST 


« 
* 


336U # 


$470 
3380 
339C 
340 
3410 
3420 


COM FUTE 


a>, S | B, CHANAN 
CALL GENAX * SET AMPLITUCE OF NASAL 
JMP ENDPRM 


“STOP AFTER PLOSIVE 
SETS THE PLOSIVE BURST PULSE 
NEEDED, ASPIRATION IN THE FOLLOWING PHON. 


LDA OCODE 
sul Cr 
MCV 
MVI 
OXI 
DAD 
MCV 
MOV 
ADD 
4DD 
ADD 
ADD 
CMA 
INR 
ACY 
MOV 
MVI 
LHLD 
DAD 
LAl 
DAD 
LAT 
DAD 
AVI 
DCR 
JNZ 


* PLOSIVE CCDE - CODE OF *P" 


eee 
Qo 
i 4 9} 
QO 
a 


MAKE POINTER TO PLOSC TABLE 


.“« 


* GET LENGTH OF BURST FULSE 


orrrorowoaran 
>= 


A = PULSE LENGTH 
ss * BC = -G*(PULSE LENGTH) 
PTR 


\yrt > 
ry 


, 36 * PLOSIVE BURST AF VALUE 


wr ztnnmnoanwnwmawas+n>?> 
o) 
fa. 
> 
a 
> 
ry) 


URST 
FCRMANTS FOR PHOW AFTER PLOSIVE 


LDA RANKX 

CPI 3 

JNC GTPLOS * CURR RANK > PLOS RANK (#2) 
vi A,2 

STA Fe * CURR RANK <= 2, PC#8O.5 
LDA OTIHES * FT = OLU 1=EL2C 


32 





a 


ADDR 


2F6A 
2F 68 
2F6C 
2F 6D 
2F6E 
2ZF71 
2F7i 
2F74 
2677 
2F 7A 
2E7C 
2E 75 
2Foi 
2F 84 
2F 54 
2Fo4 
2F 84 
2F a7 
2Fub 
2F 6B 
2F SE 
2F91 
2F92 
2F95 
2F 9G 
2F 93 
2F9C 
2F9F 
2FA2 
2FA2 
2FA2 
2FA2 
2FAS 
2FAG 
2FAS 
2FAB 
2FAC 
2FAD 
2FAF 
2FBC 
2F83 
2F36 
2F67 
2FBA 
2F53 
2FGE 
2FBE 
2FCC 
Ze 3 
erc3 
2FC3 
2FC3 
2FC6& 
2FCY 
2FCA 
2FCD 
ZF CE 


CF 


2A 
11 
19 
3A 
Cy 
36 


B2 


7A 
EP 
F3 
FQ 
UF 
F2 
Qi 
Fl 


3U 
C2 
32 
C3 
34 


U4 
AE 


36 
EY 


Ce 


EC 


CF 
U7 


EC 
C3 


BD 


DF 
Ud 


OU 


B3 


2P 
36 
36 
36 
36 


36 


2U 
JC 
3c 
28 
ce 
30 
2c 


cc 
3U 


2c 
36 


30 
GY 


36 
cy 


2F 


36 
CQ 


36 


E LINE 


3430 
3440 
3450 
140C 
3470 
3480 
3149 
3500 
I526 
3520 
3539 
3540 
355¢ 
356¢ 
357e 


359C 
36CC 
36iC 
3a2C 
1630 
3640 
3651 
366U 


LABEL 


s 


GTPLOS 


SETIMS 


* 


OPCD 


RRC 
RRC 
RRC 
RRC 
JMP 


LDA 
STA 
LDA 
ANI 
STA 
MVI 
STA 


PAGE (7 


OPERAND 


SETIMS 


PCTX 

PC * PC = PCT OF CURRENT PHON 
TIMESX * FT = CURR. TPRI 

CFH 

ET 

A,i 

ET * BACK: TIME = 1 (TO SET BYVAL) 


* GENERATE FORMANTS DURING ENTIRE POST=-PLOSIVE 
1500 ° 


* 


LHOD 
XCHG 
Ll 

CALL 
LtHOD 
XCHG 
LX1 

CALL 
uf LD 
XCHG 
OXI 

CALL 


FITAR 


B,CHANFIL 
GENE X * SET FORMANT 1 
FolAR 


6, CHANF2 
GENFX * SET FORMANT 2 
F3TAR 


8, CHANF 3 
GENF X * SET FORMANT 3 


* SET PP = TARGET VALUE FOR TIME DURX 
® 


SETFE2 


SET ANaC 


» * 


 SETAN 


LHL 
LDA 
MOV 
MVI 
DAC 
HOV 
ANI 
“icv 
“HOD 
CX 
DAD 
CDA 
LX1 
DAD 
MOV 
DCR 
JNZ 


FRNTAR 

CODEX 

E,A 

D,U 

D 

A,M * GET PHON X FRICATIVE TARGET 
CECH * MASK TO KEEP FP 

D,A 

BUF PTR 

B, CHANFF 

B 

DURX 

B,9 

B . 

M,D * SET FF DIRECTLY FROM TARGET 


A 
SETEFF2 


FOR TIME DURX 


CHLD 
LXI 
DAD 
LDA 
DAD 
MVI 


BUF PTR 

D,CHANAN 

D 

DURX 

B 

mM, * SET AN = C 


2 





ADDR 


2PDO 
2FDi 
2FD4 
2F D4 
2FD4 
2FD4 
207 
2FD9 
2F DC 
2F OF 
2FE) 
2FE2 
ZFS 
2FE6 
2FE9 
2FE9 
ZFE9 
2FE9 
2FeC 
2FEF 
ZPFC 
2F Fl 
2EF3 
2FF4 
ZFP) 
2PE2 
2FE? 
2FP] 
2FFA 
2EED 
JEU 
Cul 
30C2 
3004 
3005 
3cQg 
3uda 
30U8 
30Cs 
3Cug9 
3eCc 
3COF 
3Cid 
304] 
3014 
e017 
3018 
3ClA 
3C1iD 
3€1pD 
301D 
301d 
3€20 
3021 
ye24 
3025 
3028 


Bl 
30 
C2 


2A 
vin 
ig 
gy 


3D 
C2 


3A 


4] 
1y 
ag 
36 
3D 
GZ 


AF 
32 
3A 
47 
4P 
2A 
a 
19 
36 
CD 


CA 
42 


B2 


CD 


£3 
10 
3A 
EC 
Cs 
E6 


FC 


DF 
ac 
CU 


FC 


FC 


Co 


00 
Qi 


F4 
FC 


DF 
Qs 


32 
E7 


FC 
EC 


7G 
EC 


B43 


2F 


36 


Ie 


36 


2F 


36 


36 
CC 


2e 


36 
36 
ug 


30 


36 


36 


36 
oc 


30 


36 


36 


su 


CINE 


4coe 
4C10 
402c 
4030 


4c40 * 


405c 
4U6U 
407° 
4ude 
4099 
sice 
411¢c 
4i20¢ 
4lie 
414C 
4150 


4l6c * 


417 
4138c 
419u 
42ue 
4210 
422¢ 
4230 
424U 
4250 
426C 
427C 
428U 
424U 
43uc 
4310 
432¢ 
4330 
4340 
4350 
4360 


4370 * 


438¢ 
433U 
44¢cQ 
4410 
442¢ 


PACE Cd 


OPCLU OPERAND 


DCR 
JNZ 


LDA 
ANIL 
JZ 

LDA 
MVI 
CAP 
Jc 


GOV 


STA 


CHLE 


CXL 
DAD 
DAD 
MVI 
DCR 
JN2 


LDA 


CHCD 


XI 
DAD 
DAD 
MV 
DCR 
JNZ 


FRAWRD TO 


XRA 
STA 
LDA 
MCV 
OV 


CHOD 


CXE 
DAD 
MVI 


CALL 


LDA 
MOV 
LDA 
SUB 
J2 

STA 


B 
M 
A 
Ss 


A 
SLETAN 


SEE IF PLOSIVE SHOULD BE ASFIKATED 


OFEATB 

PLOSA 

FINASP * NO, FINISH CURR. PHON 
DURX 


D,% * BASE ASP TIMc = $0 MSEC 

D 

$+4 * DURX < SC MSEC, SET ASPT#*CURX 
A,D * THERE’S ROOM, SET ASPT#SC MSEC 
AS P1 


SET AV = Q FOR DURATION OF ASPIRATION (ASPT) 


BUF PTR 
D,CHANAYV 


© 


2c * SET AV = Ut 


ETAV 


SET AF = € DURING ASPIKATICH 


ASPT 
BUF PTR 
D,CHANAF 


2l * SET AF # U 


PRODUCE TRANSIENT PULSE CN AH 


A 

TARG 

AS PT 

B,A * DECAY TO C BY END OF ASP TIME 
C,A 

BUF PTR 

D, CHANAH 

D +] 

M,5C * INITELAL AH FULSE AMPLITUDE 
FRWRD 


ASPIRATION TIME TOOK THE ENTIKE CURR. FHOR 


ASPT 

B,A 

DURX 

8 

ENDPRM * ASP TIME TOOK IT ALL, CONE 
DURX * SET DURX#=DURX-AS PT 
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ADOR 


302B 
1o2C 
3C2D 
SC2E 
3C 2F 
103¢ 
3031 
1033 
3936 
3037 
JUIA 
IC 3A 
IC 3A 
IC 3A 
ICIC 
IC JE 
3041 
3044 
3047 
ICdA 
ye4C 
3940 
JO4E 
3I04F 
se5¢ 
3952 
je53 
3056 
3059 
30593 
3059 
3059 
ICSA 
s05C 
3050 
JOSE 
ye64 
3264 
3004 
3064 
3064 
yCoe 
3069 
JCA 
3°00 
307C 
3071 
S072 
4273 
30375 
3076 
70739 
307C 
3o7C¢ 
307C 
307D 
30u3 


Co 
cc 
JE 
32 
2A 
3A 
io 
ne 
i9 
DS 
7E 
FS 
E€ 
Ca 
CO 


Fil 
E6 
a7 
37 
vi 
Co 


iE 


Cc 
32 
2A 
Di 
i9 
7E 
Eo 
a7 
oar 
cD 


rar B 
= 


2A 
26 


B2 


CU 
BF 


DP 


Cc 
2D 
Cl 
FL 


E9 
ae 


FC 


Ca 


CP 


= 


Cs. 4 


Ca 


EC 
ag 


ad 


Bs E£ CINE 


36 
36 


2c 


36 
2C 
36 


BC 
3c 


36 


Jo 
2U 


vd 
30 


36 


457C 
4580 
4599 
46CQ 
461C 
462C 
463C 
4640 
405C 
466C 
4670 
4669 
469C 
47cc 
471c 
472C 
4730 
474¢ 
4750 
476C 
477C 
478U 
479¢ 
48CC 
4810 
482C 
4&3 
4840 
4459 
450U 
487C 
4a8u 
489C 
49cc 
49ic 
492C 
4930 
4940 
495U 


LABEL 


* 


* COAPUTE 


* 


FINAS F 


* COMPUTE 
* 


@ 
* COMPUTE 


496U * 


4970 
490 
499C 
5ece 
5Cic 
5e20 
3030 
3U4C 
5030 
5v6C 
5270 
5Cac 
5¢°39C 
31c0 
511¢c 
5i2c 
$173¢ 


® 
® 


ENOPRA 


OPCD 


NOV 
ACO 
ACO 
ADD 
ADD 
MOV 
MVI 
LHLD 
DAD 
SHLC 
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OPERAND 


~ 
43 


> 


* ASPT*9 INTO BC 


0 


FET 


a a ae 


BUFPTR * BUFPTR*BUFPTR+9*AS PT 


AV FOR KEMAINOER OF PHOK 


MVI 
CALL 
MVIL 
STA 
LHLD 
LDA 
MVI 
MOV 
DAD 
PUSH 
MOV 
PUSH 
ANI 
LX1 
CALL 


2,C 
PCBFT * GET AV/AH VALUES FOR PC & FT 
A,l 


BT * BT=]1 SETS BVAL FROM TARG 
AVHTAR 

CCDEX 

D,e 

E,A 

D 

D * SAVE CODEX TABLE OFFSET 
A, * GET AV/AH TARGET BYTE 
PSw * SAVE [7 

CFCH * MASK TO KEEP AV 
B,CEANAV 


GENAX * FINISH AV CURVE 


AH FOR REMAINCER OF PHON 


POP 
ANI 
ADD 
ADD 
LX1 
CALL 


PSW 

CEH * MASK TARGET BYTE TO KEEP AH 
A 

A * “CLT BY 4 

2B, CHANAH 


GENAX * FINISH AH CURVE 


AF FOR REMAINDER CF PHON 


MV1 
STA 
Livin 
STA 
LHLD 
POP 
DAD 
“OV 
ANI 
ADD 
LAl 
CALL 


NOP 
LALO 
HVI 


134 


A,3 

FIT * FT = 3 

A 

PC 2 PCs Ce 
FRXTAR 

D 

D 

A, * GET FRIC/NASAL TARGET GYTE 
iCd * MASK TO KEEP AF 
A 

B, CHANAF 

GENAX * FINISH AE CURVE 


* * BREAKPOINT LOC 





ADDR 


3082 
3033 
30a4 
W35 
3066 
3037 
33898 
3U89 
WaIc 
303d 
3U9C 
3093 
3096 
3098 
3099 
ICIA 
3093 
309C 
309D 
JVAC 
30A3 
3CA4 
3CAT7 
JOA 
JUAA 
JAD 
WAL 
JAE 
3CAE 
JOAE 
30AE 
3QAE 
JQAE 
JOAE 
JAE 
JUAE 
JAE 
JUAE 
3Q4E 
JOQAE 
JOAE 
(Bi 
ICB2 


30B4 4 


3UB5 
1UBE6 
3CB9 
3CBC 
30BD 
JUBE 
ecl 
3€C2 
30C5 
3LC8 
iuCa 
32C3 
30C8 


B2 


DP 
DF 
EY 
Et 
UU 


98 
U0 


QC 


u4 
22 


EY 
90 
F4 
DF 


C2 


FS 
D8 


S3 E€ LINE 


36 
36 


36 
36 


36 


524¢ 
515¢ 
516 
Si7e 
Side 
5190 
F2UU 
5210 
522 
52 34 
524v 
5250 
S20C 
52-0 
28C 
5290 
5300 
ait 
532C 
>24C 
534¢C 
535¢ 
530C 
S370 
5330 
5390 
54ee 
5410 
542U 
5430 
5440 
5450 
546° 
5470 
5440 
5490 
55e¢c 
pip a 
5520 
5530 
4340 
555¢ 
5560 
5370 
5560 
559°C 
56CC 
5614 
5620 
563° 
564U 
565¢C 
5660 
567C 
568C 
5690 
570 


LABEL OPCD 


HOV 
MOV 
DAD 
DAD 
DAD 
DAD 
XCHG 
SHLD 


SHLD 


CNSUP MOV 
STAX 
INX 
INX 

. DCR 
JNZ 
SHLD 
INX 
SHLD 
NOV 
CPL 
JNZ 
RET 


* 
* 
eeeerkrerkae 
* 


OPERAND 


oH 
el [ 


Cro rm 


BUF PTR 


BUFPTR * 
H,COCEX 


CTERM * 
GPLOOP 


t & 
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MULTIPLY DURX BY 9 


BUF PTR#BUF PTR+9 *DURX 


MOVE CURR CONSTANT VALUES 
INTO OLD COUSTANTS 


SEE IF NEW CODE 1S TERMINATOR 


* NO, DO ANOTHER COLUMN 


THAT'S ITT. Gers GO EISTEN 


* GENPRM SUBRCUTINES AND SOME TABLES 


* 
srecketetckhh se 


GENERATE FORMANT TRANSITIONS BETWEEN PREVIOUS 


ON ENTRY: DE FOINTS TO FORMANT TARGET TABLE 
FC CONTAINS TEE OUTPUT CHAN NO OF THAT 


FORMANT (TELLS WHICH BYTE OF FRAME) 


® 

* 

* AND CURRENT PHONS 

® 

® 

* 

& 

GENFX LDA  CODEX 
MOV L.A 
HVI H,C 
DAD D 
MOV A.M 
STA  TARG . 
LHLD BUFPTR 
DAD 8 * 
sua M 
CALL MULPC * 
ADD M 
STA  BVAL * 
JMP  GENBF 

¢ 

* GENAX SUBROUTINE 

* 

* 


133 


SET TARGET VALUE 
SET HL TO FORFANT, FRAME IL 
MULT TARG-FX(I) By PC 


BVAL#PX (I) +PC* (TARG-PX (I) ) 


GENERATE AMPLITUDE TRANSITICIS BETREEN PREV 
AND CURRENT PHONS 





ADDR 


CCB 
C8 
UC 8 
3IUCb 
3UCB 
3CCE 
OCF 
CDC 
30D] 
30D2 
30D5 
30D8 
ICDB 
30DC 
CLE 
sec 2 
CE3 
UES 
ICE7 
WE? 
ICE? 
SCE? 
3CE7 
IVE? 
3CE7 
3CE7 
3CE7 
WES 
ICE9 
CEA 
30EB 
GEC 
JCEF 
OFC 
ICE A 
30F 4 
O85 
i0F8 
I0F9 
JUFA 
JUFB 
ICKE 
JOFF 
3102 
3103 
siu4 
317 
3106 
sics 
sicc 
JiUD 
TICE 
ice 
311e 
S141 
112 
s113 


Bl 


a2 


eg 
86 
iF 
B7 
co 
32 
3A 
47 
co 
3A 
4F 
3A 


B2 


F4 
CF 


D2 
a 
Fl 


oB 
EC 


oi 


5E 


FS8 


FS 


FB 


FA 


F 4 


CE 


B3 


iE 
36 
Jo 


opt 
Yo 


36 


un 


jC 


36 


31 


E CINE 


57190 
5720 
573 
5740 
S75C 
576C 
S77 
5780 
579 
538ac 
Sdit 
Sa2C 
So 30 
5d4uU 
565C 
5360 
Sa7 
Jodl 
559uU 
59uo0 
S91c 
S92¢ 
5930 
594C 
5930 
336¢C 
5970 
5¥ac 
5990 
Sccc 
ose ah 
SC 20 
6c sc 
6u4e 
9859 
6C6u 
6079 
6080 
6C9Cc 
61c9 
6lic 
oi2¢ 
62 i¢ 
oL14e 
615¢ 
616¢C 
6170 
6i18c 
619¢ 
620 
621¢ 
b22c 
6238 
6240 
625U 
6268 
e27C 
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LABEL OPCD OPERAND 
* ON ENTRY: A CONTAINS THE PARAM TARGET VALUE 
. BC CONTAINS THE OUTPUT CHAN NO. 
* 
GENAX STA  TARG * SET TARGET VALUE 
LHLD BUF PTR 
DAD B * SET HL TO PARAM IN FRAME I 
ADD Mi 
RAR 
ORA A * DIVIDE BY 2, CLEAR CARRY 
CALL MULPC 
STA  3VAL * BVAL=PC* (TARG+Y) /2 
GENBF LDA BT 
NOV 3,A 
CALL BCWRD * MODIFY CURVE BACK FRCM BOUNDARY 
LDA DURX 
HCV C,A 
LOA OFT 
10V B,A 


= 
* FPRWRD 

* SIORES THE NEXT N FRAMES BEYOND THE PARAM VALUE 

* CURRENTLY INDICATED BY BL. B CONTAINS THE NUMBER 
* OF FRAMES NEEDEOG TO REACH THE VALUE IN LOC TARG. 
* ¢ CONTAINS THE TOTAL NO. OF NEW FRAMES TO BE 

*® STORED. 8B MAY BE ANY SIZE RELATIVE TO C 

2 


FRWRD XRA A 
CMP c * RETURN IF NOTHING TO STORE 
RZ 
INR A 
CMP B 
JNC SETARG * B¢=l, SET PARAM*TARG 
MOV Age 
SUB B 
JF FINPB * POS # OF TARGS AFTER PARABOLA 
XRA A 
JME DOPE 
PINPB MOV C.5 
DCR Cc 
INR A 
OC PB STA NTARGS * SET FOR N TARGS AFTER PARAB. 
MOV A,& 
STA PCOUNT * SET $ OF PARABOLA POINTS 
MOV Com * GET PREV PARAM INTO C 
FUSH H 
LDA TARG . 
SUB c 
PUSH PSW 
JHC $+5 
CMA 
INR A 
MCV D,A * ABS (TARG-PREV) INTC D 
MOV Pa | 
INR & 
XRA A 
MOV H,A * HOeN¢] (N IS DIST TO PEAR) 
MCV E,A 
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ACOR 


3114 
3147 
3118 
a4 9 
3LiA 
311B 
311E 
S345 
3120 
$421 


ii22 = 


123 
3124 
$125 
Ji2o 
4327 
41238 
3429 
3128 
312€ 
J12F 
3132 
ai3s4 
3134 
$135 
4136 
ai37 
3138 
3139 
71. 3¢ 
4130 
JLi3E 
3140 
3143 
3144 
4445 
4146 
3147 
J14s 
3448 
314¢ 
4314p 
JIi4E 
314F 
3152 
3153 
3154 
3157 
3158 
3i5B 
315¢ 
3150 
315E 
3lol 
3164 
3165 
3166 


BL B2 B3 E LINE 


Cd 13 32 


29 
54 
59 
Et 
C2 
7 
ac 


26 


ve 
13 


3% 


ge 
PA 


Cyd 


F4 


43 


FB 


F4 
vg 


31 


32 
31 


36 


36 


o256C 
6290 
6 300 
631¢ 
6320 
6330 
634VU 
635¢ 
6360 
6370 
6300 
6390 
6400 
v410 
6420 
6430 
6440 
645¢ 
640 
6470 
646C 
6499 
650 
65lie 
652¢C 
6538 
654¢C 
655¢ 
636C 
657¢ 
6589 
6599 
b6UL 
6610 
6620 
603 
6640 
6u30 
066U 
6679 
664 
a69C 
67CC 
671 
672U 
67 3e 
6740 
67549 
6768 
6770 
B77 
6790 
bYyuL 
681 
6b20 
6330 
6640 


LABEL 


FRW 2 


FRW 3 


FWOLP 


SETARG 


SETAL 


OPCD 


CALL 
DAD 
MOV 
Mov 
POP 
JNec 
NOV 
CMA 


MOV 
CMA 
MOV 
INX 
STC 
PUSH 
PUSH 
MOV 
MVI 
CALL 
POP 
Nw 
MCV 
CMA 
MOV 
MOV 
CMA 
MOV 
INX 
SHLO 
POP 
MOV 
MMVI 


MOV 
fiOV 
DAD 
POP 
PUSH 
vXI 
DAD 
POP 
PUSH 
MOV 
LHLO 
DAD 
OCR 
JNZ 
POP 
COA 
ORA 


MCV 
LDA 
Lx! 
DAD 
NOV 
DCR 


OPERAND 


DIV 
H 
O,# 
E,& 
PSW 
FEW 2 
A,H 


H,A 
A,L 


aonwmOtunaer 
aa (HO* *& oO 
rmzrmocaen 

| eed 

= 

Ce | 


- 
ww 


Oo 


wOLP 


2OryPpuaonwmnrmrmoorrao 


TARGS 


= Dea 
wD Pp 
oO 


OnmorRWn } 
> 
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» 


PACE 12 


ABS (256 * (TARG-PREV)/ (N¢#1) ) 


SAVE ASS (VELTA) #2 *QUOTIENT 


FIX SIGN CF DELTA 
AND SAVE IT 
AND ITS SIGN 


COMPUTE ABS (DELTA/N) 


SECOND DIFF © -DELTA/N 
GET DELTA INTO HL 
PREV PARAM 10 DE 


AND PARAS COUNT TO A 


Y*Y+DELTA 


ADDR#ADDR+9 
STORE NEW Y VALUE 


DELTA=DELTA+SD - 


GET ADOR POINTER 
NO. OF TARG VALUES TO WRITE 


SET PARAM#TARG 





ADDR 


3167 
Ji6A 
3168 
3i6B 
316B 
3168 
3loB 
3168 
3163 
3168 
316B 
3166 
316¢ 
JLOE 
316F 
3172 
S473 
3174 
3175 
3176 
3177 
3172 
317A 
3178 
s17¢ 
3170 
3i7E 
347F 
3102 
3163 
3184 
3167 
3148 
3189 
310A 
y1idc 
414D 
+id£ 
3.0F 
429 
ja. 
3492 
eG 
$4.90 
1.97 
Ji y¥4 
$i93 
si 92 
JiSF 
Ji AU 
3iAl 
31A2 
32A3 
31A4 
31A5 
JiAG 
31A7 


Bi 62 B3 E LINE 


C2 64 31 


C3 


C2 


cc 


FE 


FS 


a9 


ce 


34 


36 


3] 


id 


31 


6450 
686U 
6u7C 
6650 
669C 
69C0 
694 
o92C 
69 3C 
6940 
695 
6960 
6970 
698 
699C 
7TUCY 
7CiC 
7TC2C 
7039 
7TC4e 
7US50 
7U6C 
7070 
7038U 
FOG 
FLCC 
AAC 
712 
7130 
7140 
7150 
716 
7478 
7182 
7190 
72CU 
T2Xe 
7220 
7230 
7244 
7290 
720U 
rp a gs 
72dU 
729U 
alee 
e731 
732 
733¢ 
734U 
735¢ 
736C 
737¢ 
7360 
7390 
740C 
7410 


LABEL 


FOR 
On 


*eetee ee © © © © 


BCwRD 


BCw3 


FRAME 1, 


OPCD CPEKAND 


JNZ 
RET 


BCwRD 
MCDIFLES N FRAMES BACKWAF'? FROM AND INCLUDING 
CURRENTLY INDICATED BY HL. 

BP CONTAINS THE NUMBER N 
LOCATION BVAL CONTAINS THE FINAL DESIRED VALUE 


SETAL 
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FRAME I (THE LAST ONE MODIFIED). 
[S LEFT POINTING TO THE PARAM, FRAME 


RETURN, HL 


HOV 
CPI 
RC 
JZ 
ACD 
ACD 
ADD 
ADD 
CAA 
HOV 
AVE 
INX 
DAD 
MOV 
PUSH 
PUSH 
LCA 
SUB 
PUSE 
JNC 
CMA 
INR 
MOV 
NVI 
CAD 
DAD 
DAD 
CAC 
DAG 
NCV 
LR 
CALL 
SCHG 
CALL 


JNC 
MOV 
CMA 
MOV 
OV 
CMA 
MOV 
INx 
DAD 
DAD 
DAD 


A,3 
Ps 


SETIB 


cory > 


Nn) > 
ft 
ft 


= * 


ogoToO0ONM 
> x 
om 


oO 
+n 
ws 


t7 
> 


MUG 


DIV 
PSw 
UC 3 
A,i 


ia Ofs 9 bobs OF aa] Bee 
> o> 
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* 


e 


e 


CHECK N 


MCDIFY ONLY THE LAST FRAME 


DE = ~9*N 


GET YC, VALUE AT FRAME I[-N 


PUT SIGN(BVAL-¥C) IN STACK 


2*ABS (BVAL-Y¥°), SIGN IN STK 
ese 8 *16 


COMPUTE (DE) =N* (N41) 


COMEFUTE lo*SECOND DIFF 





ADDR 


31A8 
31A9 
31AC 
J1AD 
SLAF 
lac 
3161 
31B4 
3137 
3186 
3189 
318A 
3158 
i18C 
31BL 
31ce 
31¢C1 
31Cz 
a1C2 
31c4 
3505 
s1c8 
3109 
31CC 
31CD 
3100 
4101 
3102 
31D2 
31D2 
31iD2 
3102 
31D2 
31D2 
31D2 
31D2 
31D3 
7105 
3158 
7109 


31DA j 


3108 
31i0C 
3iDF 
31E£°0 
JiEl 
7iE3 
31E6 
TIES 
31£6 
3iE9 
3LEA 
31£B8 
31EC 
FILED 
31P0 
31Pi 


29 
22 
Dl 
LE 


2D 
Ga 
2A 
cg 
44 
4D 
iy 
Di 
E5 
24 
1y 
Di 
ES 
le 
3D 
C2 
Di 
ii 
i9 
3A 


c3 


B2 


F6 


vc 


UC 
F6 


iS 
ws 


B4 
He) 


FS 


Cy 
DB 


F 3 


Cv 
ES 


F2 


83 E LINE 


36 


Uc 


31 


C0 


36 


36 


Lp 


31 


742¢ 
7430 
744¢ 
7450 
7409 
747 
7460 
7490 
Pave 
Tale 
7520 
Tae 
7540 
7990 
7560 
7970 
7153C 
799e 
760C 
7610 
7629 
76390 
764C 
7690 
760 
7670 
769 
769° 
1JeC 
Tae 
7720 
7739 
7749 
7758 
776C 
TTI 
7780 
779¢ 
Taco 
7319 
7d2C 
7339 
7384C 
7850 
786C 
767C 
7ooe 
7890 
73c¢ 
To1c 
7320 
793¢C 
7940 
795¢ 
7960 
7970 
7980 


LACEL OPCD 


DAD 
SHLD 
POP 
MVI 
MOV 
DCR 
uxL 
BCWLP CHLO 
DAD 
MOV 
NOV 
LAD 
POP 
PUSH 
LAL 
DAD 
POP 
PUSH 
MOV 
DCR 
JNZ 
PCP 
UX1 
DAD 
SETIB LDA 
MOV 
RET 


“ULPC 


STORED WITH 


ee - &@ & @ @& @ 


(DE) LOST, 


KULPC PUSH 
MVI 
JIC 
CMA 
IWR 
DCR 

MPCi MOV 
LDA 
RAR 
MOV 
MVI 
JNC 
ADD 
RAR 

MPC 2 MOV 
MOV 
RAR 
MOV 
MOV 
JNC 
ADD 
nAR 


OPERAND 


oO” 


= 3 Oe = 8 
ct x ce Oc 


= 
WO 


PREMmMOURMMOONWDAMHOD FPP MOM 
o 


BCWLP 
0,9 


BVAL 
MA 


MULTIPLY ABS(A) EY PBC, 
POSSIBLE VALUES OF PC ARE 0,1/4,1/2,3/4, & 1 
THE BIN PT TO THE RIGHT OF BIT 2 
RETURN RESULT IN A 
(BC) & (HL) RESTORED 


als), 


» @® @ * 


* 
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SD#*256*SECCND CLIFF 
GET YC VALUE BACK 

(DE) #256*YC 

LOOP CCUNT IS Nei 


INIT DELTA2U 
DELTASDELTAtSC INTO BC 


Y*Y+DELTA 


NEW ADDR#AUDR+9 


CLEAN UP THE STACK 


PUT BVAL IN LAST FRAME 


SIGN(A) IS IN CARRY 


IP CARRY SET, ss< 


* COMPL A, SAVE CARRY IN 


E 
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ADDR B1 B2 B83 E SINE LABEL OPCD OPERAND 
4]F2 57 7390 MPC} MOV D,A 
3]F3 7C ace MOV A,H 
31F4 iF dCle RAR 

JiFS 7A BOQ20 MCV 4,D 
JIFo O02 FA 3) BU 30 JNC MPC4 
3iFS 35 BU 4 ACD . 

31FA EL sl3C0 MPC4 POP H 

Ice 1c acEc INR E 

WTEC CCC 3070 RNZ 

31FD 2F 6uUBL CMA 

TIPS 4¢ Bege INR A * BESTCKE SIGN OF A 
JIEP C9 31¢ec RET 

a 203 siiu * 

12° g12¢ * MUL SUBROUTINE 

i220) S210 * “RULTIPEY (8) “BY 6), io BIT RESULT AN DE 
3208 s1i4c * SEE INTEL ASSY LANG PROG MAN., PACE 534 
72¢¢ aisc * HL NOT DISTURBED 
72¢e¢ 8i6c * 

A2CC 16 ¢0 8170 MUL MVI b,¢ 
3202 cE @9 a1Bbu MVI Cao 
32C4 7B £190 MUL2 MOV A;ZE 
12¢05 IF 82cCc RAK 

32C6 SE s21¢e MOV E,A 
420. UD 822 DCR c 

32C68 Co J23C R2 

32Cy¥ 7A 824¢ MOV A,L- 
120A. D2 CE 32 8250 JNC MUL 3 
TZCD ae 3200 ACD B 

32CE iF 627C MUL} RAR 

42CP 47 d423aVu MOV b,A 
fee C2 C4. 32 8290 JMP MUS 2 
3233 3300 * 

1213 831C * DIV SUBROUTINE 

1233 €32C * DIVIDE (DE)/(HL), RRESULT IN HL, REM IN DE 
1213 833c * BC RESTORED, A GCESTROYECD 
42133 834c * : 
S2793.C5 835C DIV PUSH 8 

3214 44 836C MOV B,H 
3215 4D 8370 MOV CoG 
Wigs Ce OC 83ac UXI H,C 
3239 36 je 8390 MVI A, 16 
3218 FS §4cQ oL1vV} PUSH PS¥ 
421C 29 8410 DAD tI 

32iD EB §42U XCHG 

321E 29 843¢ DAD H 

321F EB 344 XCHG 

3220 D2 24 32 6450 JNC DIV2 

5 Pe er | 8460 [NX 3 | 

3224 7D 8470 DIV2 MOV A, 
3225 91 843° SUB C 

3226 GF &49¢ MOV GA 
a227 a7c asee MOV A, fl 
322a 92 hie aL S88 B 

3229 o7 8522 MOV H,A 
322A 13 853 INX D 

322B D2 30 32 85490 JNC DIV3 
322E 09 8550 DAD B 
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ADDR 


322F 
3230 
3231 
ted 
3235 
3236 
5237 
3233 
3236 
3238 
323d 
3238 
72139 
J23A 
3218 
323C 
4230 
i248 
a2 35 
3240 
a2" 


Bl 22 83 F LINE 


ifs 
Fi 
30 
C2 
Ci 
EB 
ca 


ie 
ul 
C2 
G2 
Qj 
G3 


C2 


b56C 
33570 
a5 
85498 
BoC 
86ic 
$62C 
36 3C 
u64u 
B65 
8650 
Ro? 
Bout 
d369C 
8720 
a7iv 
S720 
B87 4e 
374U 
é7ys5u 
B76u 


eee 8 


OPC D 


DCX 
POP 
DCR 
JN@ 
POP 


SCHG 


RCT 


PLOSC TARLE 
PLOSIVE BURST 


DL 
DB 
DB 
DL 
DL 
DB 
DB 
DB 


END OF SECT 3 


PACE lu 
QPERAND 


D 

PSK 

A 
Civi - 
3) 


PULSE DURATIONS 


: -— Fr 
i le 
iz 77% 
2 * KX 
p oe 
I ae 
2 2's 
2 * GX 
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ADDR Bl B2 B3 E LINE LABEL OPCD OPERAND 

Zee eclc * PLAY ROUTINE, TARGET TAGLES, & MISC 
20cVU co70 * 

zeae ecyc * SECTION 6 OF THE CSR1 SYNTHESIS BY RULE SYSTEM 
2ccy eo4u * 

2cco C959 * LLOYD RICE, COMPUTALKER CONSULTANTS 
2000 6u6c * VERSION 1,C8 MAY 30, 1977 
2uce¢ ce7v¢ © 

2eb¢ yoga trrretrre st 

z2ece 0c30. * 

Z2ece C1lCJ * COMMON JUMP ADDRESS TABLE 
2euc eric + 

2ece 120 COMIMP EQU >. 

zcce Cis * 

ecu cide CSRi Cs j 

2zUCi- €} 36. 32 ci59 JUMP PLAY 

2ccs Ci6C BUFADR DS Z 

2008 Cl7¢ BUFEND DS Z 

2 iCA CidC PVTAB DS 2 

Zuce UVi9@ MATPAK DS 3 

2ccr C202 “AATERR DS 3 

rae C210 RULES DS 3 

2e%5 Q22C SETDUR os j 

2018 Q23C RULES 3 oS j 

2CiB C249 GENFY DS 3 

2Vi£ C250 CLRBUF DS j 

202) C26 GENPRM DS 3 

2024 C27 MUL DS 3 

Z2G27 C238aC DLV DS j 

222A C3 96 32 O290 JMP GETCNS 

252D CC} DO 32 e3o¢ JMP PCBFT 

2030 LG i esac Da FiTAR 

2032 S56 33 e3z¢ DW F2TAR 

2234 94 33 Oyyy Da F3TAR 

2036 Do 43 340 Dw AVUTAR 

2230 CC 34 S35c DW FRNTAR 

2C 3A Qje0 * 

20 7A Q37U *eterreres 

2° 44 Cidd *¢ 

203A C390 © TOMRAM ORIGEN DEFINITICN 
2° 3A vee. © 

223A Cec ORG COMIMP+i50CH 
3960 C42¢ COMRAM ECU $ 

Yasue c43c * 

3526 e44ce * CSRI SYSTEM RAM SPACE DEFINITICN 
25eC e450 

35°C 246° MATPTR DS 2 

14G2 C470 NEGENG DS 2 

4544 C48 MATRIX ECU > 

15¢4 Q49C MHATLEN ECU 35 

3504 m5 PHCODE cS MATLEN 

4563 C510 FRATA DS MATLEN 

15C2 C520 FEATB DS MATLEN 

4621 C530 STRES DS MATLEN 

Joby C540 DUR DS “ATLEM 

36DP C55C MATENC ecu > 

J6DF C56U BUFPTR CS 2 

36E3 C570 * 
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ADDR B81 B2 B3 E LINE 


J6E] 
J6E1 
36E1 
J6E1 
J6E2 
J6E 3 
36E4 
30E5 
J6E6 
JOE? 
JoEs 
JOEY 
JEE9 
35EA 
J6OEB 
30EC 
JoOED 
J6EE 
JOEF 
36FC 
J6FA 
36F1 
JGF2 
36F 3 
JorF4 
36F4 
36F4 
1oF4 
J6F4 
36F 4 
J6F7 
Yor? 
36F7 
Jor? 
4250 
3250 
225C 
3250 
3250 
1256 
325¢ 
34250 
3250 
3250 
125C 
3250 
3250 
4253 
3255 
3256 
3257 
34259 
323C 
325D 
J25E 
325F 
326¢ 


al 
36 
23 
23 
36 
2A 
SE 
23 
50 
23 
cb 


FA 
D3 


C9 
CS 


77 


36 


2v 


32 


e5aec 
0599 
VOU 
C6ic 
vo20 
C6 iv 
vud 
UG5C 
Co6C 
C670 
Vobe 
C6gc 
N78C 
crc 
C729 
C7 2c 
8740 
U75C 
c76Cc 
Q77¢ 
Q78C 
C79 
cacc 
c#lc 
ea2c 
Ud 30 
Ce4e 
CdSe 
C86U 
C870 
Cea? 
vay 
e9cc 
C9l1¢ 
W920 
093C 
O94L 
c95¢c 
0990 
gg7U 
C938 
0990 
1ceCc 
1c1¢ 
102¢ 
icy 
1c4¢ 
LESC 
icéc 
1¢70 
icae 
1cgc 
110? 
iia 
41120¢ 
123%) 
1i4e 


PASE C2 
LABEL OPCD OPERAND 


* THE NEXT 19 LOCATIONS ARE USEC IN COMMON 
* WITH SECTION 5. THEY MUST NOT BE MOVED 


« 


OCODE DS x 
OFLATA CS i 
OFEATE DS Pt 
ODURK DS. 1 
OCID DS i 
ORANK DS i 
CPCT DS Z 
OTIMES DS 4 
* 

CODEX DS pt 
FEATAX DS } 
FEATBX DS 1 
DURX DS a 
CiOx DS- 1 
RANKX DS pI 
PCTX DS i 
TIMESX CS i 
s 

3T DS a 
FT DS Z 
PC DS 4 


® 

teetetkene 

a 

* PLAY (LOCAL) RAM WORKSPACE 


« 


CTO DS 2 * SPACE PCR CT-1 OUTPUT CODE 
f& 


ernatkeettrere 
* 


ORG COMJIMP+i25UH 
SECTAD ECU 9 
* 


* DEFINITIONS FOR PLAY SUBROUTINE 
* 

CTBASE ECU CECH 

CHANSW EQU 15 

* 


tereaceatstet 
« 


* PLAYBACK SUBROUTINE 


® 


PLAY LX1 H, CTO * SETUP CT-1 OUTPUT SUBRCUTINE 
MV1I M, CD 3H 
INX _ 
LINX H 


NVI M,CC9H * SETUP RETURN 
SHLD BUPADR 


MOV E,M * GET FEAME COUNT (LOW EYTE) 
INX 8 

MOV D,M * {AND HIGH BYTE) 

INX H 


CALL CTOUT * SET CT-i PARAMS FROM FRAME 1 





ADDR 


$263 1 


4264 
3266 
3268 
3268 
320E 
326F 
3276 
AZT 
3274 
3278 
1277 
F207 
A277 
A277 
4277 
1272 
4277 
3277 
a247 
3279 
4278 
IZ 
3276 
3250 
3243 
3284 
3285 
32386 
4269 
328A 
320A 
320A 
323A 
J20A 
32628 
J28E 
128 
329¢ 
3291 
34294 
3295 
3296 
3296 
1235 
3296 
3296 
32956 
3230 
3296 
3296 
3299 
329C 
329D 
S295 
3295 
32AC 


vo 
CE 
76 
32 


7 


co 


C4 
CD 


a 
YS 


C9 


2A 
vl 
7E 
i2 
C9 
13 


of 


B2 


ay 
EF 


4 


3A 


68 


EF 


Et 
c9 


eo 


4 


78 


BE 


CC 
SF 


B83 £ LINE 


32 
32 


$2 


36 
36 


32 


C3" 


32 


35 
cc 


1154 
1l6e 
1170 
lisa 
1190 
1260 
L210 
1220 
12398 
1240 
12530 
£260 
2270 
128¢C 
$290 
1300 
Lave 
132¢ 
1330 
134v 
2356 
1360 
37e 
1380 
1390 
1400 
1410 
1420 
143¢ 
144 
1450 
14649 
1470 
144¢ 
1498 
1sea 
1510 
152¢ 
1530 
1S4e 
155¢ 
156u 
1s7e 
15ac 
159° 
16cC 
1919 
lo2u 
i632 
164¢ 
3650 
2660 
1670 
168a 
1690 
lice 
1710 
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LABEL OPCD OPERAND 
DCX D * COUNT THAT FRAME 
MVI Ay 293 
OUT CTBASE+CHANSW * TURN ON CT=1 
PLALP CALL. ‘CTCUT * PLAY THE BUPFER 
CALS DLYIC * BAIT LO MSEC 
DCX D 
MOV A,D 
ORA E 
JNZ PLALP * LOOP UNTIL BUPFER DONE 
OuT CTBASE+CHANSW * TURN OFF CT=-l 
RET 
® 
* CTOUT PLAYS ONE CATA PRAME FROM THE SUPFER 
* ON ENTRY: HL FOINTS TO AV OF THE FRAME TO PLAY 
¢ SUBR CTO HAS BEEN SET UP AS: 
: CTO OUT CI'BASE 
* RET 
* {DE) ARE UNCHANGED 
t 
CTCUT MVI B,CTPASE * RE-INITIALIZE CTO ROUTINE 
MVI Cc, . 
CTLP MOV A,8 
STA CTO+1] 
MOV AM 
CALL CTO * OUTPUT THE PARAMETER 
INX H 
INR 8 
DCR Cc 
JNZ CYLP * GO ARCUND 9 TIMES 
RET 
t 
* CELAY 1C MILLISECONDS {ASSUMES 2HMH2 CLOCK) 
* (A) CHANGED, ALS ELSE RESTORED 
t 
OLY\A PUSH H 
ie 1, 8c 
DC xX H 
HOV A,H 
ORA L 
JNZ 3-3 
POP H 
RET 
& 
teeter ete ee 
e e 
* GETCNS SUBROUTINE ; 
* GET MISC CONSTANTS PERTAINING TO THE CURRENT PHOUW 
* PUT DATA INTO TABLE BEGINNING AT (DE) 
* ALG REGISTERS MODIFIED 
t 
GETCNS LHLD MATPTR 
XI 8,MATLEN 
NOV A,t * GET CURRENT PHO? CODE 
STAX D 
DAD e 
INX D 
MOV A,M * GET FEATA 
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Bl B62 83 E LINE 


i2 
Uy 
13 
7E 
12 
us 
C9 
13 
7E 
i2 
13 
cA 
4e£ 
“6 
21 
29 
7E 
6F 
E6 
a2 
13 
6U 
29 
29 
29 
ue 
12 
3 
64 
29 
2y 
qC 
LZ 
Ls 
ei 
Ug 
7E 
a2 
Cy 


4a 34 


C7 


34 34 


ES J6 


ED 36 


172¢ 
t74¢ 
174¢ 
175C 
176 
1770 
L738u 
1790 
Lgee 
1813 
LgZze 
La ju 
134 
18549 
146U 
1870 
i3ov 
1998 
19uVU 
1919 
1920 
1930 
1940 
1950 
196u 
197¢ 
igse 
199U 
2Ucy 
ZUlg 
2020 
Z2U3¢ 
204U 
2use 
2U6U 
2U70 
2C3C 
209 
ZIG 
2iiv 
2120 
2230 
2140 
ZE5U 
216u 
Zi 7¢ 
2160 
2490 
2200 
ZeLG 
Z22U 
2230 
224 
2255 
2269 
2270 
2280 


LABEL 


ee + = + & + & 


POBET 


ON ENTRY: 


OPCL 


STAX 
DAC 
INX 
MOV 
STAX 
DAD 
DAD 
INX 
MOV 
STAX 
{Nx 
LHLD 
"NcVv 
MVI 
LxI 
DAD 
MOV 
MOV 
ANI 
STAX 
{NX 
NOV 
DAC 
DAD 
DAD 
MOV 
STAX 
INX 
MCV 
DAD 
DAD 
4OV 
STAX 
{nx 
Lx! 
DAD 
HOV 
STAX 
RET 


LDA 
MOV 
ADD 
ACD 
ANG 
AcD 
SOV 
LBA 
ALC 
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OPERAND 

D 

B 

D 

A,*¥ * GET FEAT6 

G 

B 

B 

D 

A, * GET DURATION 

D 

D 

MATPITK * GET CODE AGAIN 
Pa 
20 
»RSPCID 
et! * GET RANK/PC/ID BYTE 
oA 


* MASK & STCRE CIC 


0DOUrvrxzmeourwaerrzroosmrroran 


rae 
iH 
* STORE RANK 
2B 
sE 
* SHIFT & STORE PERCENT 
H, TTIMES 
B 
A, th * SET TRANSITION TIMES BYTE 
D 


PCBFT SUBROUTINE 
GET PERCENT AND TIME VALUES FROM AATRIX ARRAYS 
SET PC2PCVF (CIDX,OCID) 

SET BT=TAVF (OCID) 

SET FT=TAVF (CIDX) 
B=C TO GET AV/AH [NFO 
Bee 


TG GET AF INFO 


‘2 


pH 
Oo 


DACOFAPA 
0 > 
5 
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ADDR 


320D 
320E 
F2ZEC 
3263 
3264 
3ZES 
3226 
32E7 
JZEA 
§$2EB 
32EC 
32E0 
3ZEF 
32F 2 
32F 3 
32F6 
1}2F7 
32F6 
32FS 
J2FA 
32F3 
32FC 
TZEE 
33Ce 
3301 
3403 
3306 
339 
JICA 
y30eC¢ 
330D 
I3CE 
330F 
331¢ 
313 
3314 
3315 
Y31o 
3318 
332 
Ere 
5 eke 
422 
pee 
3310 
J3iE£ 
33LF 
$325 
332) 
3322 
3323 
3324 
3325 
3326 
3427 
3323 
3329 


iat 
ee 
ae 
ae 


B2 


ey 


EG 


O7 
F 3 


Fi 


16 


B3 EB ULME 


34 


32 


36 


34 


33 


36 


33 


36 


22990 
23UC 
2520 
Z232¢ 
2330 
234C 
2399 
236C 
237¢ 
234C 
239¢ 
2400 
241 
242C 
2430 
2449 
2450 
246U 
247¢ 
24d 
2459 
259u 
251i¢c 
2520 
2930 
2340 
29949 
2596C 
2979 
298C 
2590 
2600 
2610 
202 
263¢ 
2640 
2u5e 
2560 
2670 
2680 
269C 
220 
Z72G 
Z72e 
273 
2748 
2750 
276° 
277 
2780 
273 
25¢U 
2410 
2620 
253 
24349 
285¢ 


LABEL 


RAR 
AUT 
STA 
kcT 


OPE RANC 


Re 
< 
“*} 


yYroUororom 


+ * 
oz 


CLOX 


S+6 


ad 
é 


re 


* Fl TARGET TABLE 


2 


FAITAR 


OL 
CH 
DB 


146 


109 
149 


*neeeeer#wetes*etetne et @ 


® 


® 
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PCVF INDEX IS 7*OCID+CICX 


KEEP AV/AH 2C VALUE 
SHIFT OVER TO AF PC VALUE 


STORE FERCENT VALUE 
USE OLD CIO AS TIME TABLE INDEX 


KEEP AV TIME CONSTANTS 


SHIFT OVER TO AF CONSTANTS 


STORE BACKWARD TIME CONSTANT 


USE NEW CIO TO INDEX TAVF 


STORE FORWARD TIME CONST. 


SPACE 

PERIOD 

COMMA (PAUSF} 
WUEST 

# (TERMINATOR) 
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Pa 
ADDR 81 B2 B3 E LINE LABEL OPCD OPERAND 
332A AG 2660 DB 168 * UW 
3323 48 2670 ce 72 * AX 
332C 86 238U DB 136 * IX 
332D 4D 2490 cB 114i * ER 
332E AF 2900 DB 175 * UX 
332F 77 2910 DL 119 * OH 
3330 35 292 DB 33 * AW 
133245 2930 - DB &3 * AY 
3332 6v 2940 DB icy * oY 
3333 71 2950 DB 113 * EY 
3334 80 2960 cB i4l] * RX 
3335 95 297C DB 149 * LX 
3336 AB 29uC DB 171 =* «xX 
3337 38 299: DB 152 * YX 
3338 AS 3CCU DB 165 * WH 
3339 ee 3010 DB Q@ ** EL 
JJIA Ce yQ2Ve ce Q * EM 
j3}38 ee 30 31 8 C * EN 
333 AG 3240 UB 168 * R 
333D A2 3050 DA 162 * L 
JJJE BY 3060 DB 179 * & 
J33E C2 307 DB 194 * ¥ 
3340 EF ICde ce 239 * M 
3341 EF 3090 DB 239 *N 
3342 EF 7100 DB 239 * NX 
3343 BE 3110 DB 19eg* =P 
3344 EE 312¢ DB 19¢c 6 *@ T 
3345 BE 313¢ DB 19a *# K 
3346 BE 3140 DB 190 * KX 
3347 BE 3190 DB 19c (* B 
3344 BE 316¢ DB 192 .*# D 
3349 BE 3170 DB lye * G 
334A BE side DB 19a * SX 
3348 BE 319e DB sc * DX 
334¢ BE 32ee 2B 19e *@ F 
334D BE 216 DB 19¢ * TH 
334E BE 3220 DB j9c Ot S 
334F BE 323C bB 19e * SE 
335e SE 324¢ DB 19g * V 
3351 BE 3250 DB 19¢ * DH 
3352 BE 3260 DB i9c- * 2 
3353 BE 3270 DB 190 * 24H 
3354 ce 3280 DB Q * CH 
3355 Cd 329 DB Q * JH 
3356 dC 3300 DB 128 * HH 
3357 Be 3310 DB 128 *9 
3338 332¢ * 
3358 3332 * £2 TARGET TABLE 
3358 3340 * 
3358 CQ 3359 P2TAR DB Q * SPACE 
33°) 2 3369 DB rh * PERIOD 
335A 60 3370 Da 128 * COMMA (PAUSE) 
335B CC 3380 DA Q * QUEST 
$35C Qu 3398 DB C * ¢ (TERMINATOR) 
3359 Sa 3400 D8 Ha * TY 
J35E OA 44iv D8 itb * IH 
335F 75 3420 DB 317 * EH 
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Bl B2 a3 E LINE 


7i 
YG 
AY 
B3 
22 
Bo 
ya 
AC 
793 
42 
BO 
GZ 
96 
YG 
G3 
6A 
8C 


343e 
3440 
3450 
3468 
3470 
34380 
3490 
39¢c0 
s520 
3520 
3530 
3549 
7550 
3560 
1520 
$580 
1359U 
36eC 
jole 
362¢C 
3630 
36490 
365e 
3648 
3670 
366C 
3690 
37€C 
a7 
372 
37 30 
37440 
ray 
3769 
3770 
3788 
s79¢ 
tace 
it 
t6z2 
3g 30 
3440 
335e 
3360 
3873 
Jon 
3490 
55CC 
1918 
3920 
39 3L 
3440 
3940 
395C 
397C 
9av 
3990 


* 


t* 


OPERAND 


ine 
2c4 


’ 
U 


0 

177 
134 
22 
ive 
240 
oak 
106 
rie | 
a2) 


141 
be 
ear 


a7 


14i 
224 
190 
1228 
146 
94 
1ye 
123 
146 
94 
C 
12d 
1293 


* F3 TARGET TABLE 


* 
F3TAR 


DB 
Ch 
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C 
C 


*e*t © +e &¢ eee hc ehlUmrhlUmrhlUhhlUrhrhUh}]hUuh1TrhUmvhhUhHh Hh HhUcrhhUhhUhrhrhUrhhUcrhhUhhUhrhUhhUhU Rh Hh FT FH FE He HH He + SF te +e +e Fe Fe ee Se F 


SPACE 
PERICD 





PACE C8 


ADDR Bl BZ B23 E LINE LABEL OPCD OPERANG 
3396 AC acce DS 172 * COMMA (PAUSE) 
3397 ae 4cle ca G * QUEST 
3398 Lc 4c2e DB Q * 3 (TESMISATOR) 
3399 u4 4030 DB i132 * Ly 
339A A7 qe4e DB 167 * IH 
3398 Be acse 98 .176 * EH 
339C BS 4060 DB jul * AE 
339D 9B 407C DB i155 * AA 
339E SF 440 LB 159 * AH 
339F AC 4cgc 8 172 * AO 
33AC CE 4ice OR 2cc * Ch 
33A1 BE 4iic DB i9c * UH 
33A2 EE 4i2¢ DB 193 * UW 
33A3 A3 4.3 8 163 * AX 
3344 BS qian DE lai * 1x 
33A5 FF aise DB 255 * ER 
33A6 BE 4160 DB i9e * UX 
33A7 C6 4i7e DB 2cc * OF 
J3A8 9B 4isc DB 155. * AW 
33A9 9B 4190 DB i155. * ay 
33AA AC 420C DB 172 * OY 
33A8 BC 42ic OB 176 * EY 
23AC FF 422¢ pRB Cs'233)—=O* «RX 
}3AD 8B 4230 DB 139 * LX 
J3AE C 4240 DEB 20c * WX 
33AF AC 4250 DB i772 * YX 
33BC B9 4260 DB a5) * KR 
33B1 cc 4270 DB Q * EL 
33B2 oC 42u0c 8 C * EM 
33B3 CQ 4290 DB y * EN 
3384 FP 4320 DR 255 * R 
33B5 63 431¢ bE lio * L 
33B6 BY 43Z0 DB 135 * Ww 
}3B7 34 4339 bB 132 * ¥ 
}3B8 DC 4340 ps 220. * 
33BY A3 4350 DB 163 *N 
33BA F3 4360 DB 244 * NX 
33BE DOC 437¢ DB 22¢ * P 
130C A3 4340 DB 16} *T 
33BD AC 439 DB 172, * K 
J3BE FF 4400 cB 255 * KX 
}3BF DC 4410 DB 220 * B 
3300 A3 4420 DB i63 * OG 
$3Ci AC 4430 be 172 *G 
33C2 FE 4440 DB 255 * Gx 
33C3 A3 "4450 DB io} * DX 
ijc4 D2 | 1460 DB 2ic * F 
33C5 9B 4470 DB iss) * TH 
33C6 AT 44ue DB 167 * 5S 
33C7 9B 449u on 55 * SH 
33C% D2 45eu n8 2ie o* V 
3309 9B 4510 DR 153. * DH 
33CA AT 4320 DB 167 * 2 
33CA 9B 4330 De 453 * 214 
33CC CO 454¢ cB C * CH 
33ICH CY 4550 Da a * JH 
JICE AC 4560 DB 172 * HH 
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ADOR 


1 1CF 
3308 
13DC 
43D¢ 
33DC 
33D] 
33D2 
33D3 
3304 
33D% 
33D6 
33D? 
33D6& 
33D9 
33DA 
31303 
33DC 
33DD 
33DE 


33£0 


Ri 32 83 £ LINE 


Ac 


Ce 
Wise 
Ge 
ce 


AL 


Me 
BU 
ott 
ac 
4s 
ac 
4c 
co 
20 


cc 


C3 
Ec 


457 
45¢ 
459 
46co 
46ic 
462¢ 
463¢ 
464¢ 


LABEL 


& 


* AV/AH TARGET TASLE 
n 


AVUTAR 


465¢ . 


465¢ 
4670 
4630 
469C 
4700 
471¢ 
472¢ 
473C 
4740 
47598 
4760 
4770 
4769 
4790 
4dUv 
431¢ 
482c 
4830 
444c 
4859¢ 
4800 
4379 
48ac 
489C 
49uC 
49ic 
492U 
49 3c 
4940 
495v 
496 
4976 
4980 
499¢ 
Scere 
521° 
afZC 
3030 
9c4¢c 
sU5C 
568 
597¢ 
5230 
5299 
5ice 
5110 
S1l2e 
313¢ 


OPCD OPERAND 


D8 


LO 


i172 


Cc 
v 
0 
Cc 
Q 
224 
224 
224 
224 
224 


jo 
i160 
168 
doe 
16 
160 
i6v 


a a a a ee ee ee ee 2 al 


Q 


SPACE 

PEF LOD 

COMMA (PAUSE) 
QUEST 


t 


Oow rAnay Vs? SAEw~ Be’ D 


Nyy 
= bn 


a fh 
B 


(TERMINATOR) 


FAGE C9 





PAGE 1¢ 


ADDR Bl B2 B3 E LINE LAREL OPCG OPERAND 
3405 EA 3140 CB 224 * DH 
34C6 ES 5154 DB 229 * 2 
3407 Es 5168 DB 232 * ZH 
3403 00 s17¢ DB Q * CH 
3409 01 Sige DB s * JH 
340A CA 5190 DB le * HH 
34UB yc §2c¢c D8 128 *Q 
340C 921i¢c * 

340C 5220 * FF/AF/AN TARGET TABLE 
340C 523c * 

34eC BL 524 FRNTAR DB 126 * SPACE 
340D B80 5250 DB 12, * PERIOD 
340E Be 5260 DB 123 * COMMA (PAUSE} 
34CF 30 527 DB i128 * QUESTT 
341i ye 5260 DB i238 * § (TZEAMINATOR) 
3411 8v §29¢e 1943) 12g * IY 
3412 of 530C ba i128 * IH 
3413 32 531i Da 128 * EH 
3414 Be 532¢ DB 1238 * AE 
3415 8e 3330 DB 325 * AA 
34lb ya 5340 DB j2d  * AH 
3417 30 5350 DB 128 * AO 
34138 68 536C DB 128 * OW 
3419 BL 5370 DE 328 * UH 
3444 & - + S§ 380 DB 1246 * UW 
341B 89 §394u DB 12d * AX 
341C bu 54c0 DB 328 * Ix 
341d BC S4iv CB 125 * ER 
341E 38u 5420 DB 328 * UX 
341F 80 5430¢ DB 128 * OH 
3420 30 3440 CB 1238 * AW 
3421 80 5452 DB 328 * AY 
3422 39 5469 Do 323 * OY 
3423 3c 5470 DB 128 * EY 
3424 3¢ 3490 DB i23 * RX 
3425 3D 549% DB 128 * &% 
3420 8H 5500 cB i28 * “Xx 
3427 Bc s5ic DB 3238 * YX 
3428 wf S520 DB }28 * ¥H 
3429 32 $53¢ DB 123 * EL 
342A $9 $940 DB 32d * EM 
342B ye $350 CB 323 * EN 
342C yt 5962 DB 128 * R 
342D aL 3570 bB 123 * & 
342E 6C 3580 DB 128 * Wi 
342F aC 5599 DB l23 *yY 
3430 32 5600 De i3¢ * M 
3431 382 Sola DB 138 * N 
3432 32 5620 D8 13c * NX 
3433 49 3630 DB 328 * Pp 
3434 3c 5640 D3 123 * T 
3435 3 5650 DB 1256 * K 
3436 60 566e CB 128 * KX 
1437 3c 3678 DB 41238 * 8 
343g 8C Sage DB 128 *0D 
3439 gv 569¢ ; D3 128 * & 
343A ye 57ce DB 128 * GX 


ASE 





PACE lil 


ADDR Bl 62 83 E LINE LABEL OPCD OPERAND 
343B 80 571¢ DB 126 * DX 
343C BU 5720 DB 176 * F 
343D 7 5730 CB 112 * TH 
J43E 98 5740 DA 152. * § 
J43F 74 57 9C be il6 * SH 
3440 BC 5762 DB 17% * V 
1441 74 5770 DB 116 * DH 
1442 98 57480 5B 132 *2 
3443 74 5790 DB 116 * ZB 
1444 60 5800 DE 128 * CH 
1445 av 531 DB 128 * Ja 
3446 Bi 5820 DB 128 * HH 
3447 BC 5630 DB ijs #0 
3448 5840 * 

3448 5350 * RANK/PC/ID TABLE 

1448 386) * 

4448 OV 587 RAPCID DB C * SPACE 
1449 oC 5880 DB @ * PERIOD 
344A EO 5390 DB 128 * COMMA (PAUSE) 
3448 00 5900 DB @  * QUEST 
44 OC 591¢ DB ‘ * ¢ (TERMINATOR) 
3440 il 542¢ DB 17 * TY 
144E Ll 5930 DE 17 * IH 
344F 1i 5944 DB 17 * Ef 
3450 11 5950 DB 17 * BE 
4451 1] 5962 DB 17 * AA 
3452 ii 597¢ OB i? * AH 
3453 11 5989 D8 17. * AO 
4454 il 5990 DB 17 * OW 
4455 il 6cet DB 17 * UH 
4456 1i 6210 DB 17 * UW 
3457 il 6220 DB 17 * AX 
4458 i] 6230 DB i? * 1% 
3459 li 6c4c DB 17 * ER 
345A il 6050 DB i? * UX 
445B il 6C6u DB 17 *en 
445¢C ll 6U7U cB 17 * Ay 
4459 il sage DB 17 * AY 
1456 ii 6090 DB 17 * OY 
345F li élee DB 17. * BY 
4462 11 6114 DB 17 * RX 
146i 3E 6120 DB 62 * LX 
4462 41 613 DB 49 * x 
4403 31 614e DB 49 * YX 
1464 JE 6ise DB o2  * KH 
3465 cL 3160 DB © * By 
1466 LL 6170 DB Qo  * EM 
1467 Oe 61ue DB co * EN 
1464 36 6190 DB 62 * R 
1469 JE 6200 DB 62 Fo 
146A 3E 621¢ DB 62 * W 
146B 3E 622 DB 62 * Y 
460 53} > 6239 DB 83 * M 
346D 33 624 DB 83 * N 
346E 53 625¢ DB 83 * NX 
346F 52 6260 DB B2 * Pp 
3470 32 6270 DB 82 *T 


152 





PACE 12 


ADDR Bl B2 !.3 E LINE CLASEL SPCD CPERAND 
3471 52 6240 DS 82 * K 
3472 52 6290 DB 6&2 * KX 
1473 53 o3ee D8 8} * PB 
3474 53 6319 DB 83 * DO 
447% 33 S426 DA 83 * G 
4476 33 633C DB ui. * GX 
3477 S3 6 34¢ DB Bs. eee 
3478 7C 635¢ 0B 124 * P 
14753 7¢ 6360 0B 124 * TH 
J474 IC 637¢ DB 124 * § 
3472 7C § 384 DB i24 * Se# 
3472 7D 6 $90 °B 125 * Vv 
$4707.20 64uC OB 125 * DOH 
Y47E 7b 64iv DB i235 * Z 
447F 7D 642uU DB 125 * 2H 
3440 CL 54 ya ne : * CH 
J4u1 0 044¢ OB u ¢ JH 
3432 66 6450 C2 134 * HH ; 
3483 33 5460 D8 Ld * ¢ 
3404 647C * 

4404 6482 *® TRANSITICN TIMES TABLE 
$484 6490 * 

3444 C2 6500 TTIMES DB Q * SPACE 
1465 Ue 651i¢ DB C * PERIOD 
4446 VA 6520 DB 19 * COMMA (PAUSE) 
3457 O80 6338 DB v * JUEST 
3488 OO 6540 DB v * ¢ (TERMINATOR) 
34069 AA 6550 D8 170 © 1¥ 
34HA AA 636C DB i7t 2 1k 
34uB AA 6570 DB l7vu * EH 
4450 AA 658U DB 178 * AE 
348D AA 639C DB 17@ * AA 
3452 AA 662C DB 17¢ * AH 
J48F AA bol cB i7u * AO 
3490 AA 602 DB 17c * OW 
3491 AA 6630 DB l7e * UH 
3492 AA bb4U DB L7G 2 04 
34493 AA 6650 DB 170. * AX 
3494 AA G66 DB lJ¢ 2 EX 
3497 AA §67C DB LJCS 2 [ER 
34590 AA 66380 DB 17¢ * Ux 
3497 AA 609C DB 170 * OH 
34983 AA 67cc DB l7e * AW 
1499 AA 67iC DB i70 * AY 
344A AA 67 2¢! OB i7e * oy 
349B AA 67 3c DB 270 * EY 
349C 77 674v DB 119 * sax 
349) 74 © 675 DB 316 * & 
149E AA 6768 ne8 l17u * Wx 
14¥F AA 677C 0B i7@ ** YX 
3440 74 678C DB 1i6 * “AH 
J4Al1 0 079Y DR u = EL 
34A2 OL 669 bo C * EM 
24A3 cc 6619 0B u * E 
3444 74 6420 D& 1i6 * R 
34A5 74 ou 3 LB 316 * & 
3446 74 v4 DR 116 * WwW 


ne Be. 
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ADDR 81 82 83 E LINE LABEL OPCD OPERAND 

34A7 74 6350 DB 1i6-* ¥ 

34A8 6C 686C cS 96 * 

14A9 7C¢ 6d70 DS 112 * 

34AA 9C 68uC DS 144 * N& 

14AB 590 649C DB sy 8 OF 

34AC 70 69lQ DB De NO dae 

J4AD 9C 691ic D3 144 * K 

J4AE 90 6920 es) 144 * KX 

J4AF 6C 6930 DS 96. * 8 

148¢ 7¢ 694C DB ia 2>* 2D 

3481 9C: 6953C DS 144 *G 

3482 90 696C Da 14d * GX 

3483 70 6970 D8 a2 -* D4 

3434 54 6S8C D3 a4 © FE 

3485 94 6990 DB 84 * TH 

34B6 54 70¢Q DB 84 * § 

3407 S54 7310 DS 84 * SH 

3488 54 702¢8 DS 84 * V 

3489 54 7C3C DB 84 * DH 

348A 54 7040 CB 84 * 2 

3488 54 Teac DB 84 * 2H 

34aC ¢e 7TL68 DB ¢C wee 

3438D Cc 7¢7¢ DB 5 * JH 

J4BE VA 7C08e DB TC. * ha 

348F OA 7e9C Ds it *29 

34CC Pee ee 

34Ce 7iiC * AF PC/AV PC ARRAY, PERCENT CFOSSING VALUES 
y4ce 7i2° * (BITS 3-5)/32 = AF PERCL'NT BCLWDARY XING VALUE 
34cC 7i3e * (BITS Y-2)/4 = AV PERCENT BOUNDARY XING VALUE 
34cC 7140 * 

3409 24 713C PCVP DS 32+4 * OLD CIC#=C, NEW CID#0 
3401 C9 7160 DB 8+)i * OLD CID=C, NEW CID=1 
34C2 CC 717¢ DS G * = e =z 
F453. CC 718e DB Q ° ETc. 

3404 09 719¢ DS 8+} 

34C 429 72€¢ DB 8+} 

34C6 U9 721C DB 8+] 

34C7 89 122¢ DB 8+. * O“LD CID#"1, NEW CID#=v 
34Cb 24 7239 DB 32+4 * i 

y4C9 12 724¢C DB 16+2 M 
340A 12 725C b8 16+2 

3403 12 7260 DB 15+2 

y4ccC 14 727¢ Coa 16+4 

34CD 24 7238C DB y2+4 

J4CE CC 7290 DB C * OLG #2, NEW =@ 
34CF 12 73CC co 1632 

340C 24 ,. 731C€ DB 32+4 

34Di ce 7320 DB 9 

3402 12 1c DB 16+2 

34D} 12 7349 DB 16+2 

34D4 12 7350 C8 16+2 

3405 2C 7369 DB ¢C . 4.28 

34D6 12 = 7370 DB 16+2 

34D7 cc 738C¢ DB ¢C 

1496 24 7399 DS 32+4 

34D9 12 74¢c DB 16+2 

Y40A 12 7410 DB 16+2 
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ACOR Bl B2 B23 E LINE CABEL OPCDE OPERAND 

34DB 12 7420 0B 16+2 

340C 09 7430 OB 8+i : ETC. 
34DD 12 744¢ DB 16+2 

34DE 12 7450 0B 16+2 

340F (2 7460 OB 16+2 

34EC 24 747 08 32+4 

34E1 24 7480 08 32+4 

34E2 12 749¢ 08 16+2 

34E3 99 7520 DB 8+] 

3464 14 7510 DB 1o+4 

34E5 12 792C DB 16+2 

34E6 12 7930 OB 16+2 

34E7 22 7940 DB 32+2 

34E8 24 L53ac DB 32+4 

34E9 14 756° C8 16+4 

34EA C9 75970 OB 8 +1 

34EB 24 7530 0B 32+4 

34EC 12 759C OB 1h+2 

34ED 12 76CC 08 1642 

34EE 12 7610 : 0B 16+2 

34EF 14 7b20 0B 16+4 

34FC 24 7630 08 32+4 

34F] 7640 * 

34F 1 7690 * AF/AV TRANSITION TIME TABLE 
34F 1 ; 7660 * (BITS 3=-5)/8 = AF TRANSITION TIME IN FRAMES 
34F) 7670 * (BITS Y-2} = AV TRANSITION TIME IN FRAMES 
34F1 OC 7680 TAVF DB e * CID=0 
34F2 CB 7690 0B 8+3 * i 
34F3 CC 7708 DB C * 22 
34F4 CC T7716 DB Q * fee 3 
34F5 18 7720 08 24+C0 * 24 
34F6 18 a2 30 08 2443 * #5 
34P7 UB 7740 oss 8+ 3 * 26 
34Pd liane * 

34P8 7760 * END CF SECTION 6 


na), 





APPENDIX C 


P-3 FLEET PILOT 
QUES TIONNA IRE 


This questionnaire has been prepared by a Thesis 
student in the Aeronautical Engineering Curriculum at the 
Naval Postgraduate School, Monterey, California. The general 
topic of the Thesis deals with aircraft warning systems; those 
in the current state of the art and those proposed for future 
aircraft. This questionnaire specifically deals with the P-3 
Orion aircraft. Part One deals with the current system, its 
strengths and weaknesses. Part Two is concerned with proposals 
for future P-3 cockpit designs. Some questions require brief 
written answers. Please do not spend tco much time cn these. 
Incomplete sentence structure is acceptable, just enSure your 
idea is there. You are also asked to complete the following 
items that we may have a good idea of your experience level. 
This does not mean we will ignore "low time JO's", however. 

A cockpit must be designed to adequately accomodate all 
experience levels of pilots, and we want to knew what each 
type of pilot feels about the P-3. The name is optional, of 
course, but would nelp us to recontact you in the event one of 
your ideas merits further consideration and/or requires clari- 
fication. Also we would like to give credit where it is due. 
If you have any comments or additional ideas in this area not 
covered by this questionnaire, please feel free to use any 
free space for your comments or attach an additional sheet if 
necessary. / 


NAME 

AIRCRAFT QUALIFICATIONS 
P-3 QUALIFICATIONS 
PREVIOUS SQUADRON TOURS 
FLIGHT TIME IN P-3 
TOTAL FLIGHT TIME 


1.56 





PART 1 


The guestions in this part are concerned with the 


adequacy of the current instruments/warning systems in the 
P-3 aircraft. 


ne 


Do you feel that the current instrument/warning system in 
the P-3 is: 


Qa more than adequate? 

b adequate? 

Cc could be improved upon? 

What, if any, instrument/warning devices would you replace 
and with what? 


What additional instruments do you feel would significantly 
improve the safety and/or instrument flight capabilities 
of the P-3? 


low do you feel about the placement cf the instruments in 
the P-3 cockpit? 


4 excellent - no problems with position 
b acceptable - only a few instruments are inconveniently 
placed 
c marginal - many instruments are inconvenient 
d unacceptable - critical instruments are not readily 
accessible in certain circumstances 


If your answer to question 4 was c) or d), please briefly 
explain your answer. List the instruments in question, and 
Che particular instance when their placement would make them 
difficult to read. 


Do you have any other comments concerning the current 
instrument/warning system in the P-3? 
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BARE 2 


The second part of this questionnaire is concerned 


with possible devices which may be included in future P-3 
models. 


ie 


Recognizing the fact that a pilot or flight engineer may 
be able to gain valuable information from an instrument 
due to its relative needle position, how do you feel about 
replacing all dial guages with digital readouts? 


a) don't like the idea - reguires each individual 
guage be read and takes too 
much time 

b) think its a good idea - like the accuracy of the 

digital readouts 

Cc no opinion either way 

d) other (please explain) 


Suppose all dial guages were replaced with digital readouts, 
the numerals of which changed color according to the 
following code: 


GREEN - normal range 
YELLOW - outside normal range, but still safe 
RED - danger zone 


Now how would you feel about these instruments? 


a) still don't like the idea 

b didn't like it before, but do now 

Cc like the digital readouts, but don't think the 
color code is necessary 

d) like digital readouts more now because of the 
color code 


If a Heads Up Display were proposed for the P-3, what 
information would you desire it present to: a) the pilot?, 
b) the copilot? 


aleve 





4, Do you feel the HUD should be projected on the side as 
well as the forward windshield? Why? 


5. Do you feel it would be advantageous to have the HUD 
incorporate the Master Caution lights (i.e., when a Master 
Caution light illuminates, it is also repeated on the HUD)? 


Assuming that a computer could be designed which would 
be capable of monitoring all flight systems and parameters 
(engine performance, pressurization, electrical system, etc.) 
and be linked to the navigation system so that it would "know’ 
at all times the position of the aircraft, consider the 
following questions: 


6. If the computer could perform certain emergency procedures 
for the pilot, which would you prefer it be allowed to 
handle? 


7. Which would you not allow the computer to handle under any 
circumstances? 


8. Which would you allow it to perform only with pilot 


approval (such approval to be given by alphanumeric code 
or spoken into a microphone)? 


abel, 





9. 
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ral, 


How would you prefer the computer warn the pilot of 
impending failures or abnormal readings? 


4 by a printed message on a CRT 

b) by speaking the message (assume the computer can be 
made to "talk" in an easily recognizable "voice" ) 

c both of the above methods 

d) other (please explain) 


How would you feel about a system where the computer had 
primary control of the landing gear and flap system? 
Assume that the functions were voice controlled and the 
computer would not allow gear or flap extension above 
limit airspeeds. Also assume that the current system 
remained as a mechanical backup. 


4 strongly oppose the concept - too dangerous 
b like the idea - the computer would lower the geat 
and/or flaps when called for and 


not miss the call 
} no opinion 


other (please explain) 


0 


Would you prefer that the computer be programmed to lower 
the gear and flaps as the aircraft approached the ground? 
Assume the system were armed only below 500 feet and when 
combinations of low airspeed/power settings indicated to 

the computer that the aircraft was being landed. (Obviously, 


this is designed to prevent gear up landings. Comments, 
please.) 


2 don't like the idea (Why?) 
b like the idea because it would prevent gear up 
landings 


C4 like the idea because it would reduce pilot workload 
d) other (please explain) 
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es 


Briefly describe in the following space any ideas you might 
have concerning cockpit design. Suggestions are specifi- 
cally requested for improvements in cockpit instrumentation/ 
warning devices, items which you would like to see delegated 
to a computer (with or without pilot approval), and anything 
which would reduce pilot workload in an emergency situation. 
Also use this space if you did not have enough room to 
answer any of the previous questions. Be sure to number 
your answers appropriately. 


Lou. 
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